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.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6e5ad6ba29b44b886855dd158c431487064c2cf2..f1128b0f98dcc9208c2125acb7ff919993367ed2 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2014-04-25  Thien-Thi Nguyen  <ttn@gnu.org>
+
+       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.
+
 2014-04-24  Leo Liu  <sdl.web@gmail.com>
 
        * progmodes/xscheme.el (xscheme-expressions-ring)

diff --git a/lisp/progmodes/scheme.el b/lisp/progmodes/scheme.el
index 67374dd4c6c928f5afecf7849457f18fb508bb43..14f8dd65083b7dc35ff1bdfd6997740e32ac40bf 100644 (file)
--- a/lisp/progmodes/scheme.el
+++ b/lisp/progmodes/scheme.el
@@ -284,7 +284,9 @@ See `run-hooks'."
                    "\\|-module"
                   "\\)\\)\\>"
                   ;; Any whitespace and declared object.
-                  "[ \t]*(?"
+                  ;; The "(*" is for curried definitions, e.g.,
+                  ;;  (define ((sum a) b) (+ a b))
+                  "[ \t]*(*"
                   "\\(\\sw+\\)?")
           '(1 font-lock-keyword-face)
           '(6 (cond ((match-beginning 3) font-lock-function-name-face)