diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-12-15 19:18:04 +0100 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-12-15 19:18:04 +0100 |
| commit | 4b7a1b2afe0630e5b4c02f6cbe23bee53aa62eb9 (patch) | |
| tree | 950c1b1c5df21d45336e33f414c5e501e4abcafa | |
| parent | 176b84f5aedc1bb23d91337b10570981e9af7545 (diff) | |
| download | geiser-guile-4b7a1b2afe0630e5b4c02f6cbe23bee53aa62eb9.tar.gz geiser-guile-4b7a1b2afe0630e5b4c02f6cbe23bee53aa62eb9.tar.bz2 | |
A quack compatibility bit
If quack-mode is active, we leave additional font locking to it.
| -rw-r--r-- | elisp/geiser-syntax.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/elisp/geiser-syntax.el b/elisp/geiser-syntax.el index 8662e37..662f9cf 100644 --- a/elisp/geiser-syntax.el +++ b/elisp/geiser-syntax.el @@ -97,8 +97,9 @@ implementation-specific entries for font-lock-keywords.") (defun geiser-syntax--add-kws () - (let ((kw (geiser-syntax--impl-kws geiser-impl--implementation))) - (when kw (font-lock-add-keywords nil kw)))) + (when (not (and (boundp 'quack-mode) quack-mode)) + (let ((kw (geiser-syntax--impl-kws geiser-impl--implementation))) + (when kw (font-lock-add-keywords nil kw))))) ;;; A simple scheme reader |