awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-01 12:17:25 -05:00
Code Issues Packages Projects Releases Wiki Activity

lang/emacs-lisp: optimize symbol fontification

Browse Source 
By ignoring symbols in comments and strings.
This commit is contained in:
Henrik Lissner
2018-08-20 23:47:31 +02:00
parent 97bc69b9e5
commit 1cb31d7cb5
1 changed files with 22 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
modules/lang/emacs-lisp/config.el
View File

@ -64,6 +64,9 @@ Functions are differentiated into special forms, built-in functions and
library/userland functions"
(catch 'matcher
(while (re-search-forward "\\_<.+?\\_>" end t)
(unless (save-excursion
(let ((ppss (syntax-ppss)))
(or (nth 3 ppss) (nth 4 ppss))))
(let ((symbol (intern-soft (match-string-no-properties 0))))
(and (cond ((null symbol) nil)
((eq symbol t) nil)
@ -82,7 +85,7 @@ library/userland functions"
(if (subrp unaliased)
'font-lock-constant-face
'font-lock-function-name-face))))))
(throw 'matcher t))))
(throw 'matcher t)))))
nil))
(eval-when-compile
(byte-compile #'+emacs-lisp-highlight-vars-and-faces))