[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master d6ddc97: * Do not try to load unexistent eln file if async compil
From: |
Andrea Corallo |
Subject: |
master d6ddc97: * Do not try to load unexistent eln file if async compilation was skipped |
Date: |
Tue, 4 May 2021 15:50:47 -0400 (EDT) |
branch: master
commit d6ddc97884c3106a59b956fbc4e4f5f3e4aaf4e2
Author: Andrea Corallo <akrl@sdf.org>
Commit: Andrea Corallo <akrl@sdf.org>
* Do not try to load unexistent eln file if async compilation was skipped
* lisp/emacs-lisp/comp.el (comp-run-async-workers): Don't try to
load if the eln file was not produced.
---
lisp/emacs-lisp/comp.el | 13 ++++++++-----
1 file changed, 8 insertions(+), 5 deletions(-)
diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 0ebaccb..297c1f7 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -3944,11 +3944,14 @@ display a message."
source-file)
(comp-accept-and-process-async-output process)
(ignore-errors (delete-file temp-file))
- (when (and load1
- (zerop (process-exit-status
process)))
- (native-elisp-load
- (comp-el-to-eln-filename source-file1)
- (eq load1 'late)))
+ (let ((eln-file (comp-el-to-eln-filename
+ source-file1)))
+ (when (and load1
+ (zerop (process-exit-status
+ process))
+ (file-exists-p eln-file))
+ (native-elisp-load eln-file
+ (eq load1 'late))))
(comp-run-async-workers))
:noquery (not comp-async-query-on-exit))))
(puthash source-file process comp-async-compilations))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master d6ddc97: * Do not try to load unexistent eln file if async compilation was skipped,
Andrea Corallo <=