lang/emacs-lisp: don't fontify function in quoted list

This commit is contained in:
Henrik Lissner 2019-07-18 12:16:44 +02:00
parent 24b40824ce
commit 345d09d393
No known key found for this signature in database
GPG Key ID: 5F6C0EA160557395

View File

@ -54,7 +54,9 @@ library/userland functions"
((special-variable-p symbol)
(setq +emacs-lisp--face 'font-lock-variable-name-face))
((and (fboundp symbol)
(eq (char-before (match-beginning 0)) ?\())
(eq (char-before (match-beginning 0)) ?\()
(not (memq (char-before (1- (match-beginning 0)))
(list ?\' ?\`))))
(let ((unaliased (indirect-function symbol)))
(unless (or (macrop unaliased)
(special-form-p unaliased))