add-transient-hook!: unintern => fmakunbound

This commit is contained in:
Henrik Lissner 2018-05-20 20:08:38 +02:00
parent ac5eaf0fb3
commit 67269fdf2b
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395

View file

@ -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)