mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-11 16:08:13 +00:00
Code Issues Releases Activity

native-compile-async accept list as input

Browse Source
This commit is contained in:
Andrea Corallo 2019-11-26 17:13:44 +01:00
parent 7f5f60d543
commit 9a87c4404f
1 changed files with 11 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
lisp/emacs-lisp/comp.el
View File

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