summaryrefslogtreecommitdiff
path: root/elisp/geiser-syntax.el
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 /elisp/geiser-syntax.el
parent43c915add421637b4db12941e6d738b8de46ff7b (diff)
downloadgeiser-chez-1891a799d793ac980be066a617b5ef542f431b52.tar.gz
geiser-chez-1891a799d793ac980be066a617b5ef542f431b52.tar.bz2
Bug fix: assign a default scheme to syntax hilighting buffer
Diffstat (limited to 'elisp/geiser-syntax.el')
-rw-r--r--elisp/geiser-syntax.el8
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)