diff options
| -rw-r--r-- | elisp/geiser-reload.el | 2 | ||||
| -rw-r--r-- | elisp/geiser-syntax.el | 8 |
2 files changed, 6 insertions, 4 deletions
diff --git a/elisp/geiser-reload.el b/elisp/geiser-reload.el index d6c72fd..5602cd1 100644 --- a/elisp/geiser-reload.el +++ b/elisp/geiser-reload.el @@ -28,7 +28,6 @@ geiser-doc geiser-compile geiser-debug - geiser-impl geiser-company geiser-edit geiser-completion @@ -38,6 +37,7 @@ geiser-syntax geiser-log geiser-menu + geiser-impl geiser-custom geiser-base geiser-popup diff --git a/elisp/geiser-syntax.el b/elisp/geiser-syntax.el index 773f71f..1247cf6 100644 --- a/elisp/geiser-syntax.el +++ b/elisp/geiser-syntax.el @@ -11,6 +11,7 @@ +(require 'geiser-impl) (require 'geiser-popup) (require 'geiser-base) @@ -286,14 +287,15 @@ ;;; Fontify strings as Scheme code: -(geiser-popup--define syntax " *geiser syntax analyst*" scheme-mode) - (defun geiser-syntax--font-lock-buffer () (let ((name " *geiser font lock*")) (or (get-buffer name) (let ((buffer (get-buffer-create name))) (set-buffer buffer) - (scheme-mode) + (let ((geiser-default-implementation + (or geiser-default-implementation + (car geiser-active-implementations)))) + (scheme-mode)) buffer)))) (defun geiser-syntax--scheme-str (str) |