summaryrefslogtreecommitdiff
path: root/lisp/emacs-lisp/comp.el
diff options
context:
space:
mode:
authorAndrea Corallo <akrl@sdf.org>2021-02-26 08:49:58 +0100
committerAndrea Corallo <akrl@sdf.org>2021-02-26 14:33:08 +0100
commit54df918ad1e19513768bc27cb3e0a78856d30135 (patch)
treed126077251f0aaf8ccf1912f5ff62860bb264f62 /lisp/emacs-lisp/comp.el
parent3a31fca5dba41e9905b1293fc73dd1d44abc3138 (diff)
downloademacs-54df918ad1e19513768bc27cb3e0a78856d30135.tar.gz
emacs-54df918ad1e19513768bc27cb3e0a78856d30135.tar.bz2
emacs-54df918ad1e19513768bc27cb3e0a78856d30135.zip
* 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.
Diffstat (limited to 'lisp/emacs-lisp/comp.el')
-rw-r--r--lisp/emacs-lisp/comp.el7
1 files changed, 6 insertions, 1 deletions
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)))