From: Andrea Corallo <akrl@sdf.org>
Date: Tue, 4 May 2021 19:31:44 +0000 (+0200)
Subject: * Do not try to load unexistent eln file if async compilation was skipped
X-Git-Tag: emacs-28.0.90~2614
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d6ddc97884c3106a59b956fbc4e4f5f3e4aaf4e2;p=emacs.git

* 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.
---

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 0ebaccbe4a6..297c1f7ebca 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))