[elpa] externals/setup b7aa594 19/25: Allow :hook-into to also use hook names

[Stefan Monnier]

branch: externals/setup
commit b7aa594088c88b67de47d5b7a9e45d944a8465ff
Author: Philip K <philipk@posteo.net>
Commit: Philip K <philipk@posteo.net>

    Allow :hook-into to also use hook names
---
 setup.el | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/setup.el b/setup.el
index 779448a..29757bb 100644
--- a/setup.el
+++ b/setup.el
@@ -325,7 +325,10 @@ the first FEATURE."
 
 (setup-define :hook-into
   (lambda (mode)
-    `(add-hook ',(intern (concat (symbol-name mode) "-hook"))
+    `(add-hook ',(let ((name (symbol-name mode)))
+                   (if (string-match-p "-hook\\'" name)
+                       mode
+                     (intern (concat name "-hook"))))
                setup-mode))
   :documentation "Add current mode to HOOK."
   :repeatable t)