diff options
Diffstat (limited to 'elisp/geiser-syntax.el')
| -rw-r--r-- | elisp/geiser-syntax.el | 8 |
1 files changed, 5 insertions, 3 deletions
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) |