From: Andrea Corallo Date: Wed, 18 Mar 2020 20:16:05 +0000 (+0000) Subject: * comp.el (comp-run-async-workers): Load only if compilation succeed X-Git-Tag: emacs-28.0.90~2727^2~758 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b070571f93def7892b71a711a59bbd065c554897;p=emacs.git * comp.el (comp-run-async-workers): Load only if compilation succeed --- 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)))