From: John Wiegley <johnw@newartisans.com>
Date: Sun, 20 Dec 2015 22:39:33 +0000 (-0800)
Subject: Use cl-mapcan rather than apply 'nconc; thanks wasamasa
X-Git-Tag: emacs-29.0.90~1306^2~15^2~326
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ed2e85e4a7;p=emacs.git

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 5cace724196..5ea5ab37b56 100644
--- 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)