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

fix(lib): setq-hook!: remove docstrings from defuns

Browse Source 
They aren't useful and cause byte-compiler warnings.
This commit is contained in:
Henrik Lissner
2025-05-02 14:50:01 -04:00
parent 52dbde017a
commit f00dd3d466
1 changed files with 1 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/doom-lib.el
View File

@ -945,12 +945,7 @@ If N and M = 1, there's no benefit to using this macro over `remove-hook'.
(declare (indent 1)) (declare (indent 1))
(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 _) (setq-local ,var ,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)))) collect `(add-hook ',hook #',fn -90))))
(defmacro unsetq-hook! (hooks &rest vars) (defmacro unsetq-hook! (hooks &rest vars)