From 4b7a1b2afe0630e5b4c02f6cbe23bee53aa62eb9 Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Wed, 15 Dec 2010 19:18:04 +0100 Subject: A quack compatibility bit If quack-mode is active, we leave additional font locking to it. --- elisp/geiser-syntax.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'elisp') 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 -- cgit v1.2.3