[Emacs-diffs] /srv/bzr/emacs/trunk r103585: font-lock.el tweak for bug#2159.

[Glenn Morris]

------------------------------------------------------------
revno: 103585
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Mon 2011-03-07 20:28:14 -0800
message:
  font-lock.el tweak for bug#2159.
  
  * lisp/font-lock.el (lisp-font-lock-keywords-1):
  Don't highlight `)' in some setf expressions.
modified:
  lisp/ChangeLog
  lisp/font-lock.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-03-08 02:49:20 +0000
+++ b/lisp/ChangeLog    2011-03-08 04:28:14 +0000
@@ -1,3 +1,8 @@
+2011-03-08  Glenn Morris  <address@hidden>
+
+       * font-lock.el (lisp-font-lock-keywords-1): Don't highlight `)'
+       in some setf expressions.  (Bug#2159)
+
 2011-03-08  Chong Yidong  <address@hidden>
 
        * custom.el (custom-available-themes): Return themes in

=== modified file 'lisp/font-lock.el'
--- a/lisp/font-lock.el 2011-01-25 04:08:28 +0000
+++ b/lisp/font-lock.el 2011-03-08 04:28:14 +0000
@@ -2242,7 +2242,7 @@
                "\\)\\)\\>"
                ;; 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)