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

bind-keys: ,@(when map (list map)) => map

Browse source 
Omitting map is same as passing nil.
This commit is contained in:
Noam Postavsky 2014-04-14 00:01:28 -04:00
parent 053a1514a1
commit 869ff53ab9
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -188,12 +188,12 @@ 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) `(bind-key ,(if prefix
(concat prefix " " (car form)) (concat prefix " " (car form))
(car form)) (car form))
',(cdr form) ',(cdr form)
,@(when map (list map)))) ,map))
key-bindings)))) key-bindings))))
(defun get-binding-description (elem) (defun get-binding-description (elem)