From bb38fa9c5cae5095a629c6cbb4ea570d47adeb62 Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Thu, 6 Jun 2013 23:48:28 +0200 Subject: For crazy guys that use (define/match [foo bar] ...) Racket is happy with that, so who are we to disagree? --- elisp/geiser-racket.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/elisp/geiser-racket.el b/elisp/geiser-racket.el index 1c42e29..5ac8718 100644 --- a/elisp/geiser-racket.el +++ b/elisp/geiser-racket.el @@ -256,7 +256,7 @@ using start-geiser, a procedure in the geiser/server module." (setq geiser-racket-font-lock-forms '(("^#lang\\>" . 0) ("\\[\\(else\\)\\>" . 1) - ("(\\(define/match\\) +(?\\(\\w+\\)+\\b" + ("(\\(define/match\\)\\W+[[(]?\\(\\w+\\)+\\b" (1 font-lock-keyword-face) (2 font-lock-function-name-face)))) -- cgit v1.2.3