From: Andrea Corallo <akrl@sdf.org>
Date: Mon, 23 Nov 2020 19:25:00 +0000 (+0100)
Subject: * Rename two native compiler customize
X-Git-Tag: emacs-28.0.90~2727^2~301
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6104ab0f35e10c4d61c8e8774aa246e6630c8ac0;p=emacs.git

* 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'.
---

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 567ff00b9c4..29a97a7196e 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)