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 | 1891a799d793ac980be066a617b5ef542f431b52 (patch) | |
| tree | 743ff5d677bf68a3f33ad3a2f1d0d6ba6ba6bbf3 /elisp/geiser-syntax.el | |
| parent | 43c915add421637b4db12941e6d738b8de46ff7b (diff) | |
| download | geiser-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.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) |