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
|
||||
(cond ((functionp ,hook) (advice-remove ,hook #',fn))
|
||||
((symbolp ,hook) (remove-hook ,hook #',fn)))
|
||||
(unintern ',fn nil)))
|
||||
(fmakunbound ',fn)))
|
||||
(cond ((functionp ,hook)
|
||||
(advice-add ,hook ,(if append :after :before) #',fn))
|
||||
((symbolp ,hook)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue