[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
feature/native-comp 6104ab0 1/2: * Rename two native compiler customize
From: |
Andrea Corallo |
Subject: |
feature/native-comp 6104ab0 1/2: * Rename two native compiler customize |
Date: |
Mon, 23 Nov 2020 14:28:19 -0500 (EST) |
branch: feature/native-comp
commit 6104ab0f35e10c4d61c8e8774aa246e6630c8ac0
Author: Andrea Corallo <akrl@sdf.org>
Commit: Andrea Corallo <akrl@sdf.org>
* Rename two native compiler customize
* lisp/emacs-lisp/comp.el (comp-deferred-compilation-deny-list):
Rename from `comp-deferred-compilation-black-list'.
* lisp/emacs-lisp/comp.el (native--compile-async): Update to use
`comp-deferred-compilation-deny-list'.
(comp-bootstrap-deny-list): Rename.
(batch-native-compile): Update to use `comp-bootstrap-deny-list'.
---
lisp/emacs-lisp/comp.el | 10 +++++-----
1 file changed, 5 insertions(+), 5 deletions(-)
diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 567ff00..29a97a7 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -80,13 +80,13 @@ This intended for debugging the compiler itself.
"Unconditionally (re-)compile all files."
:type 'boolean)
-(defcustom comp-deferred-compilation-black-list
+(defcustom comp-deferred-compilation-deny-list
'()
"List of regexps to exclude files from deferred native compilation.
Skip if any is matching."
:type 'list)
-(defcustom comp-bootstrap-black-list
+(defcustom comp-bootstrap-deny-list
'()
"List of regexps to exclude files from native compilation during bootstrap.
Skip if any is matching."
@@ -3464,7 +3464,7 @@ Ultra cheap impersonation of `batch-byte-compile'."
(cl-loop for file in command-line-args-left
if (or (null byte-native-for-bootstrap)
(cl-notany (lambda (re) (string-match re file))
- comp-bootstrap-black-list))
+ comp-bootstrap-deny-list))
do (comp--native-compile file)
else
do (byte-compile-file file)))
@@ -3535,10 +3535,10 @@ bytecode definition was not changed in the meanwhile)."
(unless (or (gethash file comp-async-compilations)
;; Also exclude files from deferred compilation if
;; any of the regexps in
- ;; `comp-deferred-compilation-black-list' matches.
+ ;; `comp-deferred-compilation-deny-list' matches.
(and (eq load 'late)
(cl-some (lambda (re) (string-match re file))
- comp-deferred-compilation-black-list)))
+ comp-deferred-compilation-deny-list)))
(let* ((out-filename (comp-el-to-eln-filename file))
(out-dir (file-name-directory out-filename)))
(unless (file-exists-p out-dir)