Remove fmakunbound from add-transient-hook!

unintern is enough.
This commit is contained in:
Henrik Lissner 2018-06-27 18:53:05 +02:00
parent 26f514001e
commit 5ae25318a4
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395

View file

@ -300,7 +300,6 @@ 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)))
(fmakunbound ',fn)
(unintern ',fn nil)))
(cond ((functionp ,hook)
(advice-add ,hook ,(if append :after :before) #',fn))