diff options
| author | mathieu2em <math.per@hotmail.com> | 2019-07-22 13:43:20 -0400 |
|---|---|---|
| committer | mathieu2em <math.per@hotmail.com> | 2019-08-20 15:31:38 -0400 |
| commit | 6805bbfd42248b51990422c4bc8a7370d9959dea (patch) | |
| tree | d8880165bec9f65757fabdca5816b9e0974c901a /elisp | |
| parent | d8c0e60e236ee89e97e8757eef47064b55affdfb (diff) | |
| download | geiser-guile-6805bbfd42248b51990422c4bc8a7370d9959dea.tar.gz geiser-guile-6805bbfd42248b51990422c4bc8a7370d9959dea.tar.bz2 | |
gambit syntax coloration + adjustment of methods list
Diffstat (limited to 'elisp')
| -rw-r--r-- | elisp/geiser-gambit.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/elisp/geiser-gambit.el b/elisp/geiser-gambit.el index e839665..b7ac830 100644 --- a/elisp/geiser-gambit.el +++ b/elisp/geiser-gambit.el @@ -182,7 +182,7 @@ If `t', Geiser will use `next-error' to jump to the error's location." (defun geiser-gambit--exit-command () ",q") (defun geiser-gambit--symbol-begin (module) - (save-excursion (skip-syntax-backward "^-()>") (point))) + (save-excursion (skip-syntax-backward "^-()> ") (point))) (defun geiser-gambit--version (binary) (car (process-lines binary "-c" "(display (version))"))) @@ -235,7 +235,7 @@ If `t', Geiser will use `next-error' to jump to the error's location." ;;; Keywords and syntax (defun geiser-gambit--keywords () - `(geiser-gambit--builtin-keywords)) + `(,geiser-gambit--builtin-keywords)) (geiser-syntax--scheme-indent (receive 2) |