summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2016-06-12 00:54:54 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2016-06-12 00:54:54 +0200
commit84db2d2cd28c2f3185483f52d1d3e83b8ee628ea (patch)
treec2d04aa1067c1c647dabddd3b724f03f3c85e954
parent345a0a0281f65755756f5a3282aa953764726ce6 (diff)
downloadgeiser-guile-84db2d2cd28c2f3185483f52d1d3e83b8ee628ea.tar.gz
geiser-guile-84db2d2cd28c2f3185483f52d1d3e83b8ee628ea.tar.bz2
Registering *global* font-lock keywords in REPLs at the right time
We were adding only the scheme-specific ones.
-rw-r--r--elisp/geiser-repl.el2
-rw-r--r--elisp/geiser-syntax.el3
2 files changed, 3 insertions, 2 deletions
diff --git a/elisp/geiser-repl.el b/elisp/geiser-repl.el
index f0ba31b..efdcfc3 100644
--- a/elisp/geiser-repl.el
+++ b/elisp/geiser-repl.el
@@ -281,7 +281,7 @@ module command as a string")
(unless old
(geiser-repl-mode)
(geiser-impl--set-buffer-implementation impl)
- (geiser-syntax--add-kws)))))
+ (geiser-syntax--add-kws t)))))
(defun geiser-repl--read-impl (prompt &optional active)
(geiser-impl--read-impl prompt (and active (geiser-repl--active-impls))))
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)))))