mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
* lisp/emacs-lisp/comp.el (comp-async-query-on-exit): New customize.
	(comp-run-async-workers): Make use of.
This commit is contained in:
Andrea Corallo 2021-02-26 08:49:58 +01:00
parent 3a31fca5db
commit 54df918ad1
1 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/emacs-lisp/comp.el
View file

@ -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)))