[Emacs-diffs] trunk r117039: * lisp/emacs-lisp/lisp-mode.el (lisp--match-hidden-arg): Only highlight past

[Stefan Monnier]

------------------------------------------------------------
revno: 117039
revision-id: address@hidden
parent: address@hidden
fixes bug: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=17345
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Thu 2014-05-01 12:14:03 -0400
message:
  * lisp/emacs-lisp/lisp-mode.el (lisp--match-hidden-arg): Only highlight past
  the last consecutive closing paren.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/emacs-lisp/lisp-mode.el   lispmode.el-20091113204419-o5vbwnq5f7feedwu-205

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-04-30 21:39:57 +0000
+++ b/lisp/ChangeLog    2014-05-01 16:14:03 +0000
@@ -1,3 +1,8 @@
+2014-05-01  Stefan Monnier  <address@hidden>
+
+       * emacs-lisp/lisp-mode.el (lisp--match-hidden-arg): Only highlight past
+       the last consecutive closing paren (bug#17345).
+
 2014-04-30  Reuben Thomas  <address@hidden>
 
        * dired.el (dired-mode): make terminology for eXpunge command

=== modified file 'lisp/emacs-lisp/lisp-mode.el'
--- a/lisp/emacs-lisp/lisp-mode.el      2014-04-25 16:11:07 +0000
+++ b/lisp/emacs-lisp/lisp-mode.el      2014-05-01 16:14:03 +0000
@@ -163,8 +163,9 @@
         (let ((ppss (parse-partial-sexp (line-beginning-position)
                                         (line-end-position)
                                         -1)))
+          (skip-syntax-forward " )")
           (if (or (>= (car ppss) 0)
-                  (looking-at "[]) \t]*\\(;\\|$\\)"))
+                  (looking-at ";\\|$"))
               (progn
                 (forward-line 1)
                 (< (point) limit))