tweak(core): accept hook symbol in +hook-once!

abougouffa · Apr 18, 2023 · 4a08072 · 4a08072
1 parent 4dd3285
commit 4a08072
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/elisp/+minemacs.el b/elisp/+minemacs.el
@@ -241,7 +241,8 @@ DEPTH and LOCAL are passed as is to `add-hook'."
 (defmacro +hook-once! (hook &rest body)
   "Hook BODY in HOOK, it runs only once."
   (declare (indent 1))
-  (let ((fn-name (intern (format "+hook-once--function-%d-h" (cl-incf +hook-once-num)))))
+  (let ((hook (+unquote hook))
+        (fn-name (intern (format "+hook-once--function-%d-h" (cl-incf +hook-once-num)))))
     `(add-hook
       ',hook
       (defun ,fn-name ()