extract use-package-hook-handler-flatten-mode-symbols function

diff --git a/lisp/use-package/use-package-core.el b/lisp/use-package/use-package-core.el
index 7b4d26ba2a34d6aad89791841f13632a01bdc996..543cb80d1865d5be7925c41dc89cd2b9eefb5720 100644 (file)
--- a/lisp/use-package/use-package-core.el
+++ b/lisp/use-package/use-package-core.el
@@ -1266,9 +1266,13 @@ meaning:
                             (concat (symbol-name sym)
                                     use-package-hook-name-suffix)))
                    (function ,fun)))
-             (if (use-package-non-nil-symbolp syms) (list syms) syms)))))
+             (use-package-hook-handler-flatten-mode-symbols syms)))))
     (use-package-normalize-commands args))))
 
+(defun use-package-hook-handler-flatten-mode-symbols (syms)
+  "Ensure that `SYMS' turns into a list of modes."
+  (if (use-package-non-nil-symbolp syms) (list syms) syms))
+
 ;;;; :commands
 
 (defalias 'use-package-normalize/:commands 'use-package-normalize-symlist)