msyds/sydnix
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix: Mark transient hooks as permanent-local

Browse Source
This commit is contained in:
Madeleine Sydney
2025-02-02 11:52:10 -07:00
parent 09a2e8f309
commit ed588077de
1 changed files with 6 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
users/crumb/programs/emacs/lib/syd-prelude.el
View File

@@ -51,13 +51,15 @@
(defun ,hook-name (&rest _) (defun ,hook-name (&rest _)
"Transient hook defined by `with-transient-after'." "Transient hook defined by `with-transient-after'."
(cond ((functionp ,hook-or-function*) (cond ((functionp ,hook-or-function*)
(advice-remove ,hook-or-function* (function ,hook-name))) (advice-remove ,hook-or-function* #',hook-name))
((symbolp ,hook-or-function*) ((symbolp ,hook-or-function*)
(remove-hook ,hook-or-function* (function ,hook-name)))) (remove-hook ,hook-or-function* #',hook-name)))
,@forms) ,@forms)
(cond ((functionp ,hook-or-function*) (cond ((functionp ,hook-or-function*)
(advice-add ,hook-or-function* :before (function ,hook-name))) (advice-add ,hook-or-function* :before #',hook-name))
((symbolp ,hook-or-function*) ((symbolp ,hook-or-function*)
(add-hook ,hook-or-function* (function ,hook-name))))))) ;; https://www.gnu.org/software/emacs/manual/html_node/elisp/Setting-Hooks.html#Setting-Hooks-1
(put ',hook-name 'permanent-local-hook t)
(add-hook ,hook-or-function* #',hook-name))))))
(provide 'syd-prelude) (provide 'syd-prelude)