[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
feature/native-comp b070571 7/9: * comp.el (comp-run-async-workers): Loa
From: |
Andrea Corallo |
Subject: |
feature/native-comp b070571 7/9: * comp.el (comp-run-async-workers): Load only if compilation succeed |
Date: |
Thu, 19 Mar 2020 14:41:52 -0400 (EDT) |
branch: feature/native-comp
commit b070571f93def7892b71a711a59bbd065c554897
Author: Andrea Corallo <address@hidden>
Commit: Andrea Corallo <address@hidden>
* comp.el (comp-run-async-workers): Load only if compilation succeed
---
lisp/emacs-lisp/comp.el | 22 ++++++++++++----------
1 file changed, 12 insertions(+), 10 deletions(-)
diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 44de274..00883a3 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)))
- feature/native-comp updated (e57d5a7 -> 64a6709), Andrea Corallo, 2020/03/19
- feature/native-comp f2c4377 1/9: * comp.el: Have the compiler generates 'late_top_level_run', Andrea Corallo, 2020/03/19
- feature/native-comp b53fc68 3/9: Extend low level code for late load, Andrea Corallo, 2020/03/19
- feature/native-comp 034d9b3 2/9: * comp.el: late-load support optional as `native-compile' parameter, Andrea Corallo, 2020/03/19
- feature/native-comp 7565a4a 5/9: Command late load when deferring compilation, Andrea Corallo, 2020/03/19
- feature/native-comp 64a6709 9/9: * comp.el (comp-async-jobs-number): Fix customize type., Andrea Corallo, 2020/03/19
- feature/native-comp 0179d95 6/9: * comp.c (native-elisp-load): Guard against misisng file., Andrea Corallo, 2020/03/19
- feature/native-comp c3e640b 4/9: * comp.el: Extend `native-compile-async' for load and late-load, Andrea Corallo, 2020/03/19
- feature/native-comp b070571 7/9: * comp.el (comp-run-async-workers): Load only if compilation succeed,
Andrea Corallo <=
- feature/native-comp 981cc15 8/9: Merge remote-tracking branch 'savannah/master' into HEAD, Andrea Corallo, 2020/03/19