emacs-diffs
[Top][All Lists]
Advanced

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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]