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

the last consecutive closing paren. Fixes: debbugs:17345
2014-05-01 12:14:03 -04:00 · 2014-05-01 12:14:03 -04:00 · 17a873c585
commit 17a873c585
parent 3e597f343e
2 changed files with 7 additions and 1 deletions
--- 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))