diff options
| -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 |