From: Andrea Corallo <akrl@sdf.org>
Date: Tue, 26 Nov 2019 16:13:44 +0000 (+0100)
Subject: native-compile-async accept list as input
X-Git-Tag: emacs-28.0.90~2727^2~934
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9a87c4404fd0097e2efa14f63b97a9df8df6c07d;p=emacs.git

native-compile-async accept list as input
---

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index b84a3e53364..b225d4d9297 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -1893,18 +1893,20 @@ Return the compilation unit file name."
 ;;;###autoload
 (defun native-compile-async (input &optional jobs recursively)
   "Compile INPUT asynchronously.
-INPUT can be either a folder or a file.
+INPUT can be either a list of files a folder or a file.
 JOBS specifies the number of jobs (commands) to run simultaneously (1 default).
 Follow folders RECURSIVELY if non nil."
   (let ((jobs (or jobs 1))
-        (files (if (file-directory-p input)
-                   (if recursively
-                       (directory-files-recursively input "\\.el$")
-                     (directory-files input t "\\.el$"))
-                 (if (file-exists-p input)
-                     (list input)
-                   (signal 'native-compiler-error
-                           "input not a file nor directory")))))
+        (files (if (listp input)
+                   input
+                 (if (file-directory-p input)
+                     (if recursively
+                         (directory-files-recursively input "\\.el$")
+                       (directory-files input t "\\.el$"))
+                   (if (file-exists-p input)
+                       (list input)
+                     (signal 'native-compiler-error
+                             "input not a file nor directory"))))))
     (setf comp-src-pool (nconc files comp-src-pool))
     (cl-loop repeat jobs
              do (comp-start-async-worker))