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

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

@ -23,14 +23,15 @@ keep them left and right aligned respectively."
body)
(macroexp-progn
(if (not (keywordp (car rest)))
`((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)))))
(append `((defvar-local ,name nil ,docstring)
(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
(setq body rest)
(while (keywordp (car body))