masscollaborationlabs/emacs
2
0
Fork 0
mirror of https://github.com/masscollaborationlabs/emacs.git synced 2025-07-07 12:49:38 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

bind-keys: bind directly to prefix-map

Browse source 
instead of constructing equivalent key sequence by string concatenation.
This allows specifying vector key sequences, as in bind-key (since
f0776c2aeb).
This commit is contained in:
Noam Postavsky 2014-04-13 23:55:06 -04:00
parent 869ff53ab9
commit 01196c81ac
1 changed files with 3 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/use-package/bind-key.el
View file

@ -189,11 +189,9 @@ function symbol (unquoted)."
,@(when doc `((put ',prefix-map 'variable-documentation ,doc))) ,@(when doc `((put ',prefix-map 'variable-documentation ,doc)))
(define-prefix-command ',prefix-map) (define-prefix-command ',prefix-map)
(bind-key ,prefix ',prefix-map ,map))) (bind-key ,prefix ',prefix-map ,map)))
,@(mapcar (lambda (form) `(bind-key ,(if prefix ,@(mapcar (lambda (form)
(concat prefix " " (car form)) `(bind-key ,(car form) ',(cdr form)
(car form)) ,(or prefix-map map)))
',(cdr form)
,map))
key-bindings)))) key-bindings))))
(defun get-binding-description (elem) (defun get-binding-description (elem)