diff options
| author | Anders Lindgren <andlind@gmail.com> | 2020-08-19 14:19:12 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2020-08-19 14:19:12 +0200 |
| commit | dd6fa00fa3108ffd9d9848310a51575aae85e25d (patch) | |
| tree | 47cd268848bf7937978b299a703f44df5b1f1277 | |
| parent | a7291a9fb979e117c3286d3cfa6d0d15557edace (diff) | |
| download | emacs-dd6fa00fa3108ffd9d9848310a51575aae85e25d.tar.gz | |
Fix #'(lambda ...) font locking
* lisp/emacs-lisp/lisp-mode.el (lisp--el-non-funcall-position-p):
Fontize #'(lambda ...) better (bug#23465).
| -rw-r--r-- | lisp/emacs-lisp/lisp-mode.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el index d0c28ec5dc7..584ed8c6f90 100644 --- a/lisp/emacs-lisp/lisp-mode.el +++ b/lisp/emacs-lisp/lisp-mode.el @@ -200,7 +200,9 @@ (save-excursion (ignore-errors (goto-char pos) - (or (eql (char-before) ?\') + ;; '(lambda ..) is not a funcall position, but #'(lambda ...) is. + (or (and (eql (char-before) ?\') + (not (eql (char-before (1- (point))) ?#))) (let* ((ppss (syntax-ppss)) (paren-posns (nth 9 ppss)) (parent |