scheme font-locking: (define ((foo ...) bar) ...)

[Thien-Thi Nguyen]

In Scheme mode, Emacs font locks the form:

(define (in-vicinity-proc dir)
  (lambda (filename)
    (in-vicinity dir filename)))

with ‘define’ as a keyword and ‘in-vicinity-proc’ as a function name,
using font-lock-{keyword,function-name}-face, respectively.  That's fine.
However, for this form:

(define ((in-vicinity-proc dir) filename)
  (in-vicinity dir filename))

then Emacs font locks only ‘define’.  I have locally modified
‘scheme-font-lock-keywords-1’ to change "zero or one parens"
to "zero or more parens" and that change seems to DTRT.
Could someone please review the patch below and apply it?

thi

_______________________________________________

>From 6bdb80748bda69436d47066365e352ac909fe450 Mon Sep 17 00:00:00 2001
From: Thien-Thi Nguyen <address@hidden>
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  <address@hidden>
+
+       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  <address@hidden>
 
        * 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