diff --git a/core/core-lib.el b/core/core-lib.el
index 5f46425f7..9e76dc0dc 100644
--- a/core/core-lib.el
+++ b/core/core-lib.el
@@ -249,6 +249,7 @@ HOOK can be a quoted hook or a sharp-quoted function (which will be advised)."
        (cond ((functionp ,hook)
               (advice-add ,hook ,(if append :after :before) #',fn))
              ((symbolp ,hook)
+              (put ',fn 'permanent-local-hook t)
               (add-hook ,hook #',fn ,append))))))
 
 (defmacro add-hook! (&rest args)