From 8d0f6534babe0978ff8cd7c844b0850005749a49 Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Sun, 12 Jun 2016 00:54:54 +0200 Subject: Registering *global* font-lock keywords in REPLs at the right time We were adding only the scheme-specific ones. --- elisp/geiser-syntax.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'elisp/geiser-syntax.el') diff --git a/elisp/geiser-syntax.el b/elisp/geiser-syntax.el index ea972e9..ce64171 100644 --- a/elisp/geiser-syntax.el +++ b/elisp/geiser-syntax.el @@ -134,11 +134,12 @@ implementation-specific entries for font-lock-keywords.") (geiser-impl--define-caller geiser-syntax--case-sensitive case-sensitive () "A flag saying whether keywords are case sensitive.") -(defun geiser-syntax--add-kws () +(defun geiser-syntax--add-kws (&optional global-p) (when (not (and (boundp 'quack-mode) quack-mode)) (let ((kw (geiser-syntax--impl-kws geiser-impl--implementation)) (cs (geiser-syntax--case-sensitive geiser-impl--implementation))) (when kw (font-lock-add-keywords nil kw)) + (when global-p (font-lock-add-keywords nil (geiser-syntax--keywords))) (setq font-lock-keywords-case-fold-search (not cs))))) -- cgit v1.2.3