awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-03 12:27:26 -05:00
Code Issues Packages Projects Releases Wiki Activity

Fix remove-hook! macro

Browse Source
This commit is contained in:
Henrik Lissner
2017-03-15 22:40:04 -04:00
parent 6ff007e70d
commit 12e786db9a
1 changed files with 6 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
core/core-lib.el
View File

@ -138,7 +138,8 @@ Examples:
Body forms can access the hook's arguments through the let-bound variable Body forms can access the hook's arguments through the let-bound variable
`args'." `args'."
(declare (indent defun) (debug t)) (declare (indent defun) (debug t))
(let (hook append-p local-p) (let ((hook-fn (if (boundp 'hook-fn) hook-fn))
hook append-p local-p)
(while (keywordp (car args)) (while (keywordp (car args))
(pcase (pop args) (pcase (pop args)
(:append (setq append-p t)) (:append (setq append-p t))
@ -157,8 +158,10 @@ Body forms can access the hook's arguments through the let-bound variable
`(quote ,fn) `(quote ,fn)
`(lambda (&rest args) ,@args))) `(lambda (&rest args) ,@args)))
(dolist (hook hooks) (dolist (hook hooks)
(push `(,(if (boundp 'hook-fn) hook-fn 'add-hook) (push (cond ((eq hook-fn 'remove-hook)
',hook ,fn ,append-p ,local-p) `(remove-hook ',hook ,fn ,local-p))
(t
`(add-hook ',hook ,fn ,append-p ,local-p)))
forms))) forms)))
`(progn ,@(nreverse forms))))) `(progn ,@(nreverse forms)))))