mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-13 09:32:47 +00:00
Code Issues Releases Activity

* comp.el (comp-run-async-workers): Load only if compilation succeed

Browse Source
This commit is contained in:
Andrea Corallo 2020-03-18 20:16:05 +00:00
parent 0179d95630
commit b070571f93
1 changed files with 12 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2163,16 +2163,18 @@ display a message."
(expand-file-name invocation-name
invocation-directory)
"--batch" "--eval" (prin1-to-string expr))
:sentinel (lambda (process _event)
(run-hook-with-args
'comp-async-cu-done-hook
source-file)
(accept-process-output process)
(when load1
(native-elisp-load
(comp-output-filename source-file1)
load1))
(comp-run-async-workers)))))
:sentinel
(lambda (process _event)
(run-hook-with-args
'comp-async-cu-done-hook
source-file)
(accept-process-output process)
(when (and load1
(zerop (process-exit-status process)))
(native-elisp-load
(comp-output-filename source-file1)
load1))
(comp-run-async-workers)))))
(push process comp-async-processes))
when (>= (comp-async-runnings) (comp-effective-async-max-jobs))
do (cl-return)))