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

Use cl-mapcan rather than apply 'nconc; thanks wasamasa

Browse source
This commit is contained in:
John Wiegley 2015-12-20 14:39:33 -08:00
parent 189c8b5422
commit ed2e85e4a7
1 changed files with 9 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -220,17 +220,15 @@ function symbol (unquoted)."
#'(lambda (m)
`(bind-key ,prefix ',prefix-map ,m)) maps)
`((bind-key ,prefix ',prefix-map)))))
(apply
#'nconc
(mapcar (lambda (form)
(if prefix-map
`((bind-key ,(car form) ',(cdr form) ,prefix-map))
(if maps
(mapcar
#'(lambda (m)
`(bind-key ,(car form) ',(cdr form) ,m)) maps)
`((bind-key ,(car form) ',(cdr form))))))
key-bindings))))))
(cl-mapcan (lambda (form)
(if prefix-map
`((bind-key ,(car form) ',(cdr form) ,prefix-map))
(if maps
(mapcar
#'(lambda (m)
`(bind-key ,(car form) ',(cdr form) ,m)) maps)
`((bind-key ,(car form) ',(cdr form))))))
key-bindings)))))
;;;###autoload
(defmacro bind-keys* (&rest args)