From 90bb87cf31a3f22d3485aec2b6d182db672937e9 Mon Sep 17 00:00:00 2001 From: "Diogo F. S. Ramos" Date: Fri, 28 Feb 2014 18:03:51 -0300 Subject: Disable error in `define-syntax-rule' font lock 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(-) (limited to 'elisp/geiser-syntax.el') 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) -- cgit v1.2.3