From: Thien-Thi Nguyen <ttn@gnu.org>
Date: Thu, 24 Apr 2014 22:37:28 +0000 (+0200)
Subject: Improve Scheme font-locking for (define ((foo ...) ...) ...).
X-Git-Tag: emacs-25.0.90~2640^2~186
X-Git-Url: https://code.delx.au/gnu-emacs/commitdiff_plain/5e4ab4e4d9a98a44896c80a998111d768e959686

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 6e5ad6ba29..f1128b0f98 100644
--- 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 67374dd4c6..14f8dd6508 100644
--- 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)