From 01196c81ac8aa530781d2d0f30e41621b2c7a3f2 Mon Sep 17 00:00:00 2001 From: Noam Postavsky Date: Sun, 13 Apr 2014 23:55:06 -0400 Subject: [PATCH] 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). --- lisp/use-package/bind-key.el | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) 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) -- 2.39.2