From 6bdb80748bda69436d47066365e352ac909fe450 Mon Sep 17 00:00:00 2001 From: Thien-Thi Nguyen Date: Fri, 9 Jul 2010 14:52:48 +0200 Subject: [PATCH] Improve Scheme font-locking for (define ((foo ...) ...) ...). * lisp/progmodes/scheme.el (scheme-font-lock-keywords-1): To find the declared object, ignore zero or more parens, not zero or one. --- lisp/ChangeLog | 6 ++++++ lisp/progmodes/scheme.el | 2 +- 2 files changed, 7 insertions(+), 1 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index b3af13b..3c6d07d 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2010-07-09 Thien-Thi Nguyen + + Improve Scheme font-locking for (define ((foo ...) ...) ...). + * progmodes/scheme.el (scheme-font-lock-keywords-1): To find + the declared object, ignore zero or more parens, not zero or one. + 2010-07-08 Daiki Ueno * epa-file.el (epa-file-error, epa-file--find-file-not-found-function) diff --git a/lisp/progmodes/scheme.el b/lisp/progmodes/scheme.el index ce8a342..fb5eafe 100644 --- a/lisp/progmodes/scheme.el +++ b/lisp/progmodes/scheme.el @@ -307,7 +307,7 @@ See `run-hooks'." "\\|-module" "\\)\\)\\>" ;; Any whitespace and declared object. - "[ \t]*(?" + "[ \t]*(*" "\\(\\sw+\\)?") '(1 font-lock-keyword-face) '(6 (cond ((match-beginning 3) font-lock-function-name-face) -- 1.6.3.2