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

diff --git a/lisp/use-package/bind-key.el b/lisp/use-package/bind-key.el
index 5cace724196bd4335d0ecc4d71beabe5786af0a4..5ea5ab37b56295371cf574407770697df83d8964 100644 (file)
--- a/lisp/use-package/bind-key.el
+++ b/lisp/use-package/bind-key.el
@@ -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)