From: Andrea Corallo <akrl@sdf.org>
Date: Fri, 26 Feb 2021 07:49:58 +0000 (+0100)
Subject: * Add `comp-async-query-on-exit' customize.
X-Git-Tag: emacs-28.0.90~2727^2~124
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=54df918ad1e19513768bc27cb3e0a78856d30135;p=emacs.git

* Add `comp-async-query-on-exit' customize.

	* lisp/emacs-lisp/comp.el (comp-async-query-on-exit): New customize.
	(comp-run-async-workers): Make use of.
---

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index ddf3f049e8c..6af4ee2beb3 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -127,6 +127,10 @@ Usable to modify the compiler environment."
   "Report warnings and errors from native asynchronous compilation."
   :type 'boolean)
 
+(defcustom comp-async-query-on-exit nil
+  "Exiting Emacs, query the user if async compilation process is running."
+  :type 'boolean)
+
 (defcustom comp-native-driver-options nil
   "Options passed verbatim to the native compiler's backend driver.
 Note that not all options are meaningful; typically only the options
@@ -3928,7 +3932,8 @@ display a message."
                                  (native-elisp-load
                                   (comp-el-to-eln-filename source-file1)
                                   (eq load1 'late)))
-                               (comp-run-async-workers)))))
+                               (comp-run-async-workers))
+                             :noquery (not comp-async-query-on-exit))))
               (puthash source-file process comp-async-compilations))
          when (>= (comp-async-runnings) (comp-effective-async-max-jobs))
            do (cl-return)))