summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndrea Corallo <akrl@sdf.org>2021-05-06 10:27:57 +0200
committerAndrea Corallo <akrl@sdf.org>2021-05-06 17:16:08 +0200
commitd8f84a1c00ebf3020e201587e182cc8e4bc4a170 (patch)
tree683e88054abe41a063c78772f4c01c8228dbf909
parent31ca1c3e81b26357692c4c2428744f7f2f153596 (diff)
downloademacs-d8f84a1c00ebf3020e201587e182cc8e4bc4a170.tar.gz
emacs-d8f84a1c00ebf3020e201587e182cc8e4bc4a170.tar.bz2
emacs-d8f84a1c00ebf3020e201587e182cc8e4bc4a170.zip
* Rename comp-async-jobs-number → native-comp-async-jobs-number
* lisp/emacs-lisp/comp.el (native-comp-async-jobs-number) (comp-effective-async-max-jobs, native--compile-async) (native-compile-async): Rename comp-async-jobs-number → native-comp-async-jobs-number.
-rw-r--r--lisp/emacs-lisp/comp.el10
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index b1b55914043..54c51c6e34b 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -107,7 +107,7 @@ during bootstrap."
:type '(repeat symbol)
:version "28.1")
-(defcustom comp-async-jobs-number 0
+(defcustom native-comp-async-jobs-number 0
"Default number of subprocesses used for async native compilation.
Value of zero means to use half the number of the CPU's execution units,
or one if there's just one execution unit."
@@ -3851,7 +3851,7 @@ processes from `comp-async-compilations'"
(defvar comp-num-cpus nil)
(defun comp-effective-async-max-jobs ()
"Compute the effective number of async jobs."
- (if (zerop comp-async-jobs-number)
+ (if (zerop native-comp-async-jobs-number)
(or comp-num-cpus
(setf comp-num-cpus
;; FIXME: we already have a function to determine
@@ -3867,7 +3867,7 @@ processes from `comp-async-compilations'"
(shell-command-to-string "sysctl -n hw.ncpu")))
(t 1))
2))))
- comp-async-jobs-number))
+ native-comp-async-jobs-number))
(defvar comp-last-scanned-async-output nil)
(make-variable-buffer-local 'comp-last-scanned-async-output)
@@ -4066,7 +4066,7 @@ nil -- Select all files.
a string -- A regular expression selecting files with matching names.
a function -- A function selecting files with matching names.
-The variable `comp-async-jobs-number' specifies the number
+The variable `native-comp-async-jobs-number' specifies the number
of (commands) to run simultaneously.
LOAD can also be the symbol `late'. This is used internally if
@@ -4200,7 +4200,7 @@ nil -- Select all files.
a string -- A regular expression selecting files with matching names.
a function -- A function selecting files with matching names.
-The variable `comp-async-jobs-number' specifies the number
+The variable `native-comp-async-jobs-number' specifies the number
of (commands) to run simultaneously."
;; Normalize: we only want to pass t or nil, never e.g. `late'.
(let ((load (not (not load))))