masscollaborationlabs/emacs
2
0
Fork 0
mirror of https://github.com/masscollaborationlabs/emacs.git synced 2025-07-04 19:29: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

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

@ -186,14 +186,12 @@ function symbol (unquoted)."
`(progn
,@(when 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)
(bind-key ,prefix ',prefix-map ,@(when map (list map)))))
,@(mapcar (lambda (form) `(bind-key ,(if prefix
(concat prefix " " (car form))
(car form))
',(cdr form)
,@(when map (list map))))
(bind-key ,prefix ',prefix-map ,map)))
,@(mapcar (lambda (form)
`(bind-key ,(car form) ',(cdr form)
,(or prefix-map map)))
key-bindings))))
(defun get-binding-description (elem)