From ed2e85e4a74e760ca4d4219f2b37628ca5fce9f7 Mon Sep 17 00:00:00 2001
From: John Wiegley <johnw@newartisans.com>
Date: Sun, 20 Dec 2015 14:39:33 -0800
Subject: [PATCH] Use cl-mapcan rather than apply 'nconc; thanks wasamasa

---
 lisp/use-package/bind-key.el | 20 +++++++++-----------
 1 file changed, 9 insertions(+), 11 deletions(-)

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)
-- 
2.39.2