diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2014-05-01 12:14:03 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2014-05-01 12:14:03 -0400 |
| commit | 17a873c585321b47bcbf46612902245c49c422de (patch) | |
| tree | 773797a5d6280292ed36c9fd3b922521623c5734 /lisp/emacs-lisp/lisp-mode.el | |
| parent | 3e597f343e8607e704962b039fb3e5edf76c6864 (diff) | |
| download | emacs-17a873c585321b47bcbf46612902245c49c422de.tar.gz | |
* lisp/emacs-lisp/lisp-mode.el (lisp--match-hidden-arg): Only highlight past
the last consecutive closing paren.
Fixes: debbugs:17345
Diffstat (limited to 'lisp/emacs-lisp/lisp-mode.el')
| -rw-r--r-- | lisp/emacs-lisp/lisp-mode.el | 3 |
1 files changed, 2 insertions, 1 deletions
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)) |