mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-24 07:20:37 +00:00
Code Issues Releases Activity

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
Show Stats 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)