* lisp/emacs-lisp/lisp-mode.el (lisp--match-hidden-arg): Only highlight past

the last consecutive closing paren.

Fixes: debbugs:17345

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8a3d790509cafb17668cdd0c73bb0b9e588e04ff..fdaf4f1d9e283235d278499117c2894927bfce09 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2014-05-01  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * emacs-lisp/lisp-mode.el (lisp--match-hidden-arg): Only highlight past
+       the last consecutive closing paren (bug#17345).
+
 2014-04-30  Reuben Thomas  <rrt@sc3d.org>
 
        * dired.el (dired-mode): make terminology for eXpunge command

diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el
index 7e00d0b2cf96b258b8868d65304f74b56c8d1f8c..690aa3d7460aae0f1b2286abbafcd99d163380f1 100644 (file)
--- a/lisp/emacs-lisp/lisp-mode.el
+++ b/lisp/emacs-lisp/lisp-mode.el
@@ -163,8 +163,9 @@ It has `lisp-mode-abbrev-table' as its parent."
         (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))