From: Noam Postavsky <npostavs@gmail.com>
Date: Mon, 14 Apr 2014 03:55:06 +0000 (-0400)
Subject: bind-keys: bind directly to prefix-map
X-Git-Tag: emacs-29.0.90~1306^2~15^2~413^2
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=01196c81ac;p=emacs.git

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 bd8aa626cba..d2a21f3986b 100644
--- 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)