bind-keys: ,@(when map (list map)) => map

Omitting map is same as passing nil.

diff --git a/lisp/use-package/bind-key.el b/lisp/use-package/bind-key.el
index bb4bf13f51807ac06b72756f4eefc018ab3cf4df..bd8aa626cba541b80b117ef204284b0747b71d18 100644 (file)
--- a/lisp/use-package/bind-key.el
+++ b/lisp/use-package/bind-key.el
@@ -188,12 +188,12 @@ function symbol (unquoted)."
            `((defvar ,prefix-map)
              ,@(when doc `((put ',prefix-map 'variable-documentation ,doc)))
              (define-prefix-command ',prefix-map)
-             (bind-key ,prefix ',prefix-map ,@(when map (list map)))))
+             (bind-key ,prefix ',prefix-map ,map)))
        ,@(mapcar (lambda (form) `(bind-key ,(if prefix
                                                 (concat prefix " " (car form))
                                               (car form))
                                            ',(cdr form)
-                                           ,@(when map (list map))))
+                                           ,map))
                  key-bindings))))
 
 (defun get-binding-description (elem)