summaryrefslogtreecommitdiff
path: root/elisp/geiser-syntax.el
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2010-12-15 19:18:04 +0100
committerJose Antonio Ortega Ruiz <jao@gnu.org>2010-12-15 19:18:04 +0100
commit4b7a1b2afe0630e5b4c02f6cbe23bee53aa62eb9 (patch)
tree950c1b1c5df21d45336e33f414c5e501e4abcafa /elisp/geiser-syntax.el
parent176b84f5aedc1bb23d91337b10570981e9af7545 (diff)
downloadgeiser-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.
Diffstat (limited to 'elisp/geiser-syntax.el')
-rw-r--r--elisp/geiser-syntax.el5
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