add-transient-hook!: unintern => fmakunbound
This commit is contained in:
parent
ac5eaf0fb3
commit
67269fdf2b
1 changed files with 1 additions and 1 deletions
|
@ -167,7 +167,7 @@ HOOK can be a quoted hook or a sharp-quoted function (which will be advised)."
|
||||||
,@forms
|
,@forms
|
||||||
(cond ((functionp ,hook) (advice-remove ,hook #',fn))
|
(cond ((functionp ,hook) (advice-remove ,hook #',fn))
|
||||||
((symbolp ,hook) (remove-hook ,hook #',fn)))
|
((symbolp ,hook) (remove-hook ,hook #',fn)))
|
||||||
(unintern ',fn nil)))
|
(fmakunbound ',fn)))
|
||||||
(cond ((functionp ,hook)
|
(cond ((functionp ,hook)
|
||||||
(advice-add ,hook ,(if append :after :before) #',fn))
|
(advice-add ,hook ,(if append :after :before) #',fn))
|
||||||
((symbolp ,hook)
|
((symbolp ,hook)
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue