Fix add-hook! for hooks that take arguments

This commit is contained in:
Henrik Lissner 2019-10-28 11:54:24 -04:00
parent 9e2b0c6332
commit b0ac9abfbf
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395

View file

@ -278,7 +278,7 @@ This macro accepts, in order:
(mapcar #'doom-unquote rest) (mapcar #'doom-unquote rest)
(doom-enlist (doom-unquote (car rest)))))) (doom-enlist (doom-unquote (car rest))))))
((setq func-forms (list `(lambda () ,@rest))))) ((setq func-forms (list `(lambda (&rest _) ,@rest)))))
(dolist (hook hook-forms) (dolist (hook hook-forms)
(dolist (func func-forms) (dolist (func func-forms)
(push (if remove-p (push (if remove-p