company--multi-backend-adapter: use cl-loop and nconc

diff --git a/company.el b/company.el
index 3c4e55ee7e8d60b2fe53bd4a09dd480b5776b68c..5ccee5f650f45aa2ca16bfda14f71f3b2e496e99 100644 (file)
--- a/company.el
+++ b/company.el
@@ -733,11 +733,10 @@ keymap during active completions (`company-active-map'):
                              backends)))
     (case command
       (candidates
-       (apply 'append (mapcar (lambda (backend)
-                                (when (equal (funcall backend 'prefix)
-                                             (car args))
-                                  (apply backend 'candidates args)))
-                              backends)))
+       (loop for backend in backends
+             when (equal (funcall backend 'prefix)
+                         (car args))
+             nconc (apply backend 'candidates args)))
       (sorted nil)
       (duplicates t)
       (otherwise