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

Byte-compile mode-line segment :eval forms

Browse Source 
Byte-compiled function calls are ~10% faster than evalling quoted forms.
This commit is contained in:
Henrik Lissner
2018-07-29 19:14:50 +02:00
parent 1205db0f73
commit 55870458e6
1 changed files with 9 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
modules/ui/modeline/autoload/settings.el
View File

@ -23,14 +23,15 @@ keep them left and right aligned respectively."
body) body)
(macroexp-progn (macroexp-progn
(if (not (keywordp (car rest))) (if (not (keywordp (car rest)))
`((defvar-local ,name nil ,docstring) (append `((defvar-local ,name nil ,docstring)
(setq-default (put ',name 'risky-local-variable t))
,name (if (or (stringp (car rest))
,(if (or (stringp (car rest)) (memq (car (car-safe rest)) '(:eval :propertize)))
(memq (car (car-safe rest)) '(:eval :propertize))) `((setq-default ,name ,(car rest)))
(car rest) (let ((fn (intern (format "+modeline--%s" name))))
`(quote (:eval ,(macroexp-progn rest))))) `((fset ',fn (lambda () ,@rest))
(put ',name 'risky-local-variable t)) (byte-compile ',fn)
(setq-default ,name (quote (:eval (,fn))))))))
;; isolate body ;; isolate body
(setq body rest) (setq body rest)
(while (keywordp (car body)) (while (keywordp (car body))