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 | 7c1723140c19e0332aabaad42b314a154e391da7 (patch) | |
| tree | 2faa4936b8e57243ed290109c848fb70e9f2302c | |
| parent | 753b2b8d34480ae39ce803b28aecb52d7c5ff99c (diff) | |
| download | geiser-7c1723140c19e0332aabaad42b314a154e391da7.tar.gz geiser-7c1723140c19e0332aabaad42b314a154e391da7.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 |