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

Merge pull request from npostavs/bind-vectors

Browse source 
bind-keys: bind directly to prefix-map
GitHub-reference: https://github.com/jwiegley/use-package/issues/101
This commit is contained in:
John Wiegley 2014-04-14 08:35:39 -05:00
commit 978094589e
1 changed files with 5 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -188,12 +188,10 @@ function symbol (unquoted)."
`((defvar ,prefix-map) `((defvar ,prefix-map)
,@(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 ,@(when map (list 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)
,@(when map (list map))))
key-bindings)))) key-bindings))))
(defun get-binding-description (elem) (defun get-binding-description (elem)