font-lock.el tweak for bug#2159.

* lisp/font-lock.el (lisp-font-lock-keywords-1):
Don't highlight `)' in some setf expressions.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 03fbe15a616b7e6dc75a6913a527bfc01f83a590..c4161e63477ca209fe79428784201201803e0fa5 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-03-08  Glenn Morris  <rgm@gnu.org>
+
+       * font-lock.el (lisp-font-lock-keywords-1): Don't highlight `)'
+       in some setf expressions.  (Bug#2159)
+
 2011-03-08  Chong Yidong  <cyd@stupidchicken.com>
 
        * custom.el (custom-available-themes): Return themes in

diff --git a/lisp/font-lock.el b/lisp/font-lock.el
index b7b617fcffe960ff09d8bf02ab5c39fa4cfea9b1..988e821d7e270ddd6929b4bc5222ec5779324f34 100644 (file)
--- a/lisp/font-lock.el
+++ b/lisp/font-lock.el
@@ -2242,7 +2242,7 @@ in which C preprocessor directives are used. e.g. `asm-mode' and
                "\\)\\)\\>"
                ;; Any whitespace and defined object.
                "[ \t'\(]*"
-               "\\(setf[ \t]+\\sw+)\\|\\sw+\\)?")
+               "\\(setf[ \t]+\\sw+\\|\\sw+\\)?")
        (1 font-lock-keyword-face)
        (9 (cond ((match-beginning 3) font-lock-function-name-face)
                ((match-beginning 6) font-lock-variable-name-face)