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

perf(lib): setq-hook!: don't load pp at startup

Browse Source
This commit is contained in:
StrawberryTea
2025-03-04 14:13:38 -05:00
committed by GitHub
parent 56ce6cc284
commit 8846d15181
1 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/doom-lib.el
View File

@ -954,7 +954,10 @@ If N and M = 1, there's no benefit to using this macro over `remove-hook'.
(macroexp-progn (macroexp-progn
(cl-loop for (var val hook fn) in (doom--setq-hook-fns hooks var-vals) (cl-loop for (var val hook fn) in (doom--setq-hook-fns hooks var-vals)
collect `(defun ,fn (&rest _) collect `(defun ,fn (&rest _)
,(format "%s = %s" var (pp-to-string val)) ,(format "%s = %s" var
(let ((print-level nil)
(print-length nil))
(prin1-to-string val)))
(setq-local ,var ,val)) (setq-local ,var ,val))
collect `(add-hook ',hook #',fn -90)))) collect `(add-hook ',hook #',fn -90))))