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