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 | |
| parent | 4257f514dff18d5dfbc35e75e7ad049b506002d6 (diff) | |
| download | geiser-894abe5b8a5bd0a500fadfd5ec89e9b8fde76b8f.tar.gz geiser-894abe5b8a5bd0a500fadfd5ec89e9b8fde76b8f.tar.bz2 | |
Bug fix: assign a default scheme to syntax hilighting buffer
| -rw-r--r-- | elisp/geiser-reload.el | 2 | ||||
| -rw-r--r-- | elisp/geiser-syntax.el | 8 |
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) |