summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--elisp/geiser-reload.el2
-rw-r--r--elisp/geiser-syntax.el8
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)