From 8ec41be4180ffba60d59bfe181e65df78d9e81f8 Mon Sep 17 00:00:00 2001 From: Justin Talbott Date: Fri, 14 Jun 2019 19:48:25 -0400 Subject: [PATCH] extract use-package-hook-handler-flatten-mode-symbols function --- lisp/use-package/use-package-core.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/lisp/use-package/use-package-core.el b/lisp/use-package/use-package-core.el index 7b4d26ba2a3..543cb80d186 100644 --- 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) -- 2.39.2