awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-03 12:27:26 -05:00
Code Issues Packages Projects Releases Wiki Activity

Fix void-variable sym errors

Browse Source 
And remove trailing hyphen on anonymous transient hooks.
This commit is contained in:
Henrik Lissner
2019-05-05 00:01:52 -04:00
parent e9b750cc74
commit c42600d771
1 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
core/core-lib.el
View File

@ -227,13 +227,14 @@ advised)."
(let ((append (if (eq (car forms) :after) (pop forms))) (let ((append (if (eq (car forms) :after) (pop forms)))
(fn (if (symbolp (car forms)) (fn (if (symbolp (car forms))
(intern (format "doom|transient-hook-%s" (pop forms))) (intern (format "doom|transient-hook-%s" (pop forms)))
(make-symbol "doom|transient-hook-")))) (make-symbol "doom|transient-hook"))))
`(let ((sym ,hook-or-function)) `(let ((sym ,hook-or-function))
(fset ',fn (fset ',fn
(lambda (&rest _) (lambda (&rest _)
,@forms ,@forms
(let ((sym ,hook-or-function))
(cond ((functionp sym) (advice-remove sym #',fn)) (cond ((functionp sym) (advice-remove sym #',fn))
((symbolp sym) (remove-hook sym #',fn))) ((symbolp sym) (remove-hook sym #',fn))))
(unintern ',fn nil))) (unintern ',fn nil)))
(cond ((functionp sym) (cond ((functionp sym)
(advice-add ,hook-or-function ,(if append :after :before) #',fn)) (advice-add ,hook-or-function ,(if append :after :before) #',fn))