From d2b9757f6c3e13e6b5cbd39a86d7ef2f3f67b023 Mon Sep 17 00:00:00 2001 From: "Diogo F. S. Ramos" Date: Mon, 24 Feb 2014 17:46:50 -0300 Subject: Font lock `define-syntax-rule' like `define' procedures `define-syntax-rule' is similar enough to procedure definitions that it should be highlight as a slightly different version of one. The faces were chosen to keep the same scheme used by `define-macro'. `define-syntax-rule' was removed from Racket's extra keywords as there is no need to special case it. --- elisp/geiser-syntax.el | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) (limited to 'elisp/geiser-syntax.el') diff --git a/elisp/geiser-syntax.el b/elisp/geiser-syntax.el index 7a33770..8b427f6 100644 --- a/elisp/geiser-syntax.el +++ b/elisp/geiser-syntax.el @@ -52,8 +52,12 @@ ;;; Extra syntax keywords (defconst geiser-syntax--keywords - '(("\\[\\(else\\)\\>" . 1) - ("(\\(parameterize\\)\\>" . 1))) + `(("\\[\\(else\\)\\>" . 1) + ("(\\(parameterize\\)\\>" . 1) + (,(rx "(" (group "define-syntax-rule") eow (* space) + (? "(") (? (group (1+ word)))) + (1 font-lock-keyword-face) + (2 font-lock-variable-name-face)))) (font-lock-add-keywords 'scheme-mode geiser-syntax--keywords) -- cgit v1.2.3