lang/emacs-lisp: don't fontify function in quoted list
This commit is contained in:
parent
24b40824ce
commit
345d09d393
1 changed files with 3 additions and 1 deletions
|
@ -54,7 +54,9 @@ library/userland functions"
|
||||||
((special-variable-p symbol)
|
((special-variable-p symbol)
|
||||||
(setq +emacs-lisp--face 'font-lock-variable-name-face))
|
(setq +emacs-lisp--face 'font-lock-variable-name-face))
|
||||||
((and (fboundp symbol)
|
((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)))
|
(let ((unaliased (indirect-function symbol)))
|
||||||
(unless (or (macrop unaliased)
|
(unless (or (macrop unaliased)
|
||||||
(special-form-p unaliased))
|
(special-form-p unaliased))
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue