[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/setup 4e7d097 1/4: Fix context-sensitive hook names
From: |
ELPA Syncer |
Subject: |
[elpa] externals/setup 4e7d097 1/4: Fix context-sensitive hook names |
Date: |
Sat, 24 Jul 2021 10:57:15 -0400 (EDT) |
branch: externals/setup
commit 4e7d0979d03e46254b40789d8315a8302c51e5fc
Author: Philip Kaludercic <philipk@posteo.net>
Commit: Philip Kaludercic <philipk@posteo.net>
Fix context-sensitive hook names
---
setup.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/setup.el b/setup.el
index 304c96a..692db85 100644
--- a/setup.el
+++ b/setup.el
@@ -299,7 +299,7 @@ and VAL into one s-expression."
(intern (format "%s-mode" feature))))
(setup-opts `((feature . ,feature)
(mode . ,mode)
- (hook . ,(intern (format "%s-mode"
mode)))
+ (hook . ,(intern (format "%s-hook"
mode)))
(map . ,(intern (format "%s-map" mode)))
,@setup-opts)))
(setup-expand body))
@@ -318,7 +318,7 @@ If FEATURE is a list, apply BODY to all elements of
FEATURE."
(let (bodies)
(dolist (mode (if (listp modes) modes (list modes)))
(push (let ((setup-opts `((mode . ,mode)
- (hook . ,(intern (format "%s-mode" mode)))
+ (hook . ,(intern (format "%s-hook" mode)))
(map . ,(intern (format "%s-map" mode)))
,@setup-opts)))
(setup-expand body))