diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-09-06 04:45:28 +0200 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-09-06 04:45:28 +0200 |
| commit | 894abe5b8a5bd0a500fadfd5ec89e9b8fde76b8f (patch) | |
| tree | 2ade0a170b5d8cee339ac611183ca5e29695c1d4 /elisp/geiser-syntax.el | |
| parent | 4257f514dff18d5dfbc35e75e7ad049b506002d6 (diff) | |
| download | geiser-894abe5b8a5bd0a500fadfd5ec89e9b8fde76b8f.tar.gz geiser-894abe5b8a5bd0a500fadfd5ec89e9b8fde76b8f.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.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) |