From 9a87c4404fd0097e2efa14f63b97a9df8df6c07d Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Tue, 26 Nov 2019 17:13:44 +0100 Subject: [PATCH] native-compile-async accept list as input --- lisp/emacs-lisp/comp.el | 20 +++++++++++--------- 1 file changed, 11 insertions(+), 9 deletions(-) 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)) -- 2.39.5