mirrors/doomemacs
1
Fork 0
mirror of https://github.com/doomemacs/doomemacs.git synced 2025-12-06 02:30:33 -08:00
Code Issues 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
No known key found for this signature in database
GPG key ID: B5690EEEBB952194
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
(cl-loop for (var val hook fn) in (doom--setq-hook-fns hooks var-vals)
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))
collect `(add-hook ',hook #',fn -90))))