diff options
author | Andrea Corallo <akrl@sdf.org> | 2020-03-18 20:16:05 +0000 |
---|---|---|
committer | Andrea Corallo <akrl@sdf.org> | 2020-03-19 16:49:23 +0000 |
commit | b070571f93def7892b71a711a59bbd065c554897 (patch) | |
tree | cb686540cf02ed2d9a6d75f6ec93ced524458a5d /lisp/emacs-lisp/comp.el | |
parent | 0179d95630ff5864c14b8dfcefaa131ecd44c1e2 (diff) | |
download | emacs-b070571f93def7892b71a711a59bbd065c554897.tar.gz emacs-b070571f93def7892b71a711a59bbd065c554897.tar.bz2 emacs-b070571f93def7892b71a711a59bbd065c554897.zip |
* comp.el (comp-run-async-workers): Load only if compilation succeed
Diffstat (limited to 'lisp/emacs-lisp/comp.el')
-rw-r--r-- | lisp/emacs-lisp/comp.el | 22 |
1 files changed, 12 insertions, 10 deletions
diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el index 44de2745c6c..00883a35680 100644 --- a/lisp/emacs-lisp/comp.el +++ b/lisp/emacs-lisp/comp.el @@ -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))) |