emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages 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
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 9 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

15
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
,name
,(if (or (stringp (car rest))
(memq (car (car-safe rest)) '(:eval :propertize)))
(car rest)
`(quote (:eval ,(macroexp-progn rest)))))
(put ',name 'risky-local-variable t)) (put ',name 'risky-local-variable t))
(if (or (stringp (car rest))
(memq (car (car-safe rest)) '(:eval :propertize)))
`((setq-default ,name ,(car rest)))
(let ((fn (intern (format "+modeline--%s" name))))
`((fset ',fn (lambda () ,@rest))
(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))