summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2010-09-06 04:45:28 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2010-09-06 04:45:28 +0200
commit1891a799d793ac980be066a617b5ef542f431b52 (patch)
tree743ff5d677bf68a3f33ad3a2f1d0d6ba6ba6bbf3
parent43c915add421637b4db12941e6d738b8de46ff7b (diff)
downloadgeiser-chez-1891a799d793ac980be066a617b5ef542f431b52.tar.gz
geiser-chez-1891a799d793ac980be066a617b5ef542f431b52.tar.bz2
Bug fix: assign a default scheme to syntax hilighting buffer
-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)