From: Andrea Corallo <akrl@sdf.org>
Date: Fri, 27 Aug 2021 13:30:20 +0000 (+0200)
Subject: * Forward `comp-file-preloaded-p' to async workers
X-Git-Tag: emacs-28.0.90~1291
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f7da671493d11969651d76e9bc2676d935c9bb9c;p=emacs.git

* Forward `comp-file-preloaded-p' to async workers

* lisp/emacs-lisp/comp.el (comp-run-async-workers): Forward
`comp-file-preloaded-p' to async workers.
---

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 7d2d36d1034..80a1da5ad8c 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -3918,7 +3918,8 @@ display a message."
          do (let* ((expr `((require 'comp)
                            ,(when (boundp 'backtrace-line-length)
                               `(setf backtrace-line-length ,backtrace-line-length))
-                           (setf native-compile-target-directory ,native-compile-target-directory
+                           (setf comp-file-preloaded-p ,comp-file-preloaded-p
+                                 native-compile-target-directory ,native-compile-target-directory
                                  native-comp-speed ,native-comp-speed
                                  native-comp-debug ,native-comp-debug
                                  native-comp-verbose ,native-comp-verbose