From: Andrea Corallo <akrl@sdf.org>
Date: Mon, 18 May 2020 19:45:29 +0000 (+0100)
Subject: * Add new customize `comp-async-env-modifier-form' (Bug#40838)
X-Git-Tag: emacs-28.0.90~2727^2~632
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2ac619458520f1399088740e5e13751d362e55a0;p=emacs.git

* Add new customize `comp-async-env-modifier-form' (Bug#40838)

	* lisp/emacs-lisp/comp.el (comp-async-env-modifier-form): New
	customize.
	(comp-run-async-workers): Make use of `comp-async-env-modifier-form'.
---

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index cd1e4dbd92e..f23a0b29afc 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -133,6 +133,12 @@ finishes compiling all input files."
   :type 'hook
   :group 'comp)
 
+(defcustom comp-async-env-modifier-form nil
+  "Form to be evaluated by each asyncronous compilation worker
+before compilation.  Usable to modify the compiler environment."
+  :type 'list
+  :group 'comp)
+
 (defvar comp-dry-run nil
   "When non nil run everything but the C back-end.")
 
@@ -2324,6 +2330,7 @@ display a message."
                                   comp-debug ,comp-debug
                                   comp-verbose ,comp-verbose
                                   load-path ',load-path)
+                            ,comp-async-env-modifier-form
                             (message "Compiling %s..." ,source-file)
                             (native-compile ,source-file ,(and load t))))
                    (source-file1 source-file) ;; Make the closure works :/