diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2014-03-07 13:25:02 +0100 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2014-03-07 13:25:02 +0100 |
| commit | 13f2aa64d2bd61f1338073d913b354d88ae3e4c2 (patch) | |
| tree | 017dce1006eb426d73a66225d9b4fea35fd22201 /elisp/geiser-syntax.el | |
| parent | aefaae3c8af9d31c12411073dba7749f194bd749 (diff) | |
| download | geiser-guile-13f2aa64d2bd61f1338073d913b354d88ae3e4c2.tar.gz geiser-guile-13f2aa64d2bd61f1338073d913b354d88ae3e4c2.tar.bz2 | |
Fontify when too (thanks to Diogo)
Diffstat (limited to 'elisp/geiser-syntax.el')
| -rw-r--r-- | elisp/geiser-syntax.el | 3 |
1 files changed, 2 insertions, 1 deletions
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) |