From 9e7703db2afa2293bc9b8cb44300cb29e3d5ccf8 Mon Sep 17 00:00:00 2001
From: Henrik Lissner <henrik@lissner.net>
Date: Thu, 24 May 2018 22:35:45 +0200
Subject: [PATCH] core-lib (add-transient-hook!): set permanent-local-hook on
 hook fn

---
 core/core-lib.el | 1 +
 1 file changed, 1 insertion(+)

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)