From 8846d151814ebbf7fb90d9d5dd16cd737257408e Mon Sep 17 00:00:00 2001 From: StrawberryTea Date: Tue, 4 Mar 2025 14:13:38 -0500 Subject: [PATCH] perf(lib): setq-hook!: don't load pp at startup --- lisp/doom-lib.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/lisp/doom-lib.el b/lisp/doom-lib.el index dc2455165..ed4b75578 100644 --- a/lisp/doom-lib.el +++ b/lisp/doom-lib.el @@ -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))))