bind-keys: bind directly to prefix-map

instead of constructing equivalent key sequence by string concatenation.
This allows specifying vector key sequences, as in bind-key (since
f0776c2aeb3f7f0af66597e10a3e4469ca26629d).

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