From 121434ea1e956f8abab688a472f2a9c5524e934b Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Fri, 7 Mar 2014 13:25:02 +0100 Subject: Fontify when too (thanks to Diogo) --- 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 94f7d55..b9a7174 100644 --- a/elisp/geiser-syntax.el +++ b/elisp/geiser-syntax.el @@ -57,7 +57,8 @@ (,(rx "(" (group "define-syntax-rule") eow (* space) (? "(") (? (group (1+ word)))) (1 font-lock-keyword-face) - (2 font-lock-function-name-face nil t)))) + (2 font-lock-function-name-face nil t)) + (,(rx "(" (group "when") eow) . 1))) (font-lock-add-keywords 'scheme-mode geiser-syntax--keywords) -- cgit v1.2.3