From 17a873c585321b47bcbf46612902245c49c422de Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Thu, 1 May 2014 12:14:03 -0400 Subject: [PATCH] * lisp/emacs-lisp/lisp-mode.el (lisp--match-hidden-arg): Only highlight past the last consecutive closing paren. Fixes: debbugs:17345 --- lisp/ChangeLog | 5 +++++ lisp/emacs-lisp/lisp-mode.el | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) 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 + + * emacs-lisp/lisp-mode.el (lisp--match-hidden-arg): Only highlight past + the last consecutive closing paren (bug#17345). + 2014-04-30 Reuben Thomas * 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)) -- 2.39.5