From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Thu, 1 May 2014 16:14:03 +0000 (-0400)
Subject: * lisp/emacs-lisp/lisp-mode.el (lisp--match-hidden-arg): Only highlight past
X-Git-Tag: emacs-25.0.90~2640^2~168
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=17a873c585321b47bcbf46612902245c49c422de;p=emacs.git

* 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 8a3d790509c..fdaf4f1d9e2 100644
--- 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 7e00d0b2cf9..690aa3d7460 100644
--- 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))