emacs-diffs
[Top][All Lists]
Advanced

[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))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]