This allows partially matched `define-syntax-rule' expressions and
avoids the termination of search-based fontification, which affects
other expressions inside the buffer, in the case of a missing
subexpression.
---
elisp/geiser-syntax.el | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/elisp/geiser-syntax.el b/elisp/geiser-syntax.el
index 9aa02fc..94f7d55 100644
--- a/elisp/geiser-syntax.el
+++ b/elisp/geiser-syntax.el
@@ -57,7 +57,7 @@
(,(rx "(" (group "define-syntax-rule") eow (* space)
(? "(") (? (group (1+ word))))
(1 font-lock-keyword-face)
- (2 font-lock-function-name-face))))
+ (2 font-lock-function-name-face nil t))))
(font-lock-add-keywords 'scheme-mode geiser-syntax--keywords)
--
1.9.0
