emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages 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
`args'."
(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))
(pcase (pop args)
(:append (setq append-p t))
@ -157,8 +158,10 @@ Body forms can access the hook's arguments through the let-bound variable
`(quote ,fn)
`(lambda (&rest args) ,@args)))
(dolist (hook hooks)
(push `(,(if (boundp 'hook-fn) hook-fn 'add-hook)
',hook ,fn ,append-p ,local-p)
(push (cond ((eq hook-fn 'remove-hook)
`(remove-hook ',hook ,fn ,local-p))
(t
`(add-hook ',hook ,fn ,append-p ,local-p)))
forms)))
`(progn ,@(nreverse forms)))))