procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Rename native-comp-deferred-compilation-deny-list

Browse source 
* lisp/emacs-lisp/comp.el (native-comp-jit-compilation-deny-list)
	(native-compile-async-skip-p): Rename
	native-comp-deferred-compilation-deny-list into
	native-comp-jit-compilation-deny-list.
	(native-comp-deferred-compilation-deny-list): Mark it obsolete.
This commit is contained in:
Andrea Corallo 2023-02-13 16:40:02 +01:00
parent 8d8464bd5a
commit 95692f6754
1 changed files with 7 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -85,13 +85,17 @@ This is intended for debugging the compiler itself.
:type 'boolean :type 'boolean
:version "28.1") :version "28.1")
(defcustom native-comp-deferred-compilation-deny-list (defcustom native-comp-jit-compilation-deny-list
'() '()
"List of regexps to exclude matching files from deferred native compilation. "List of regexps to exclude matching files from deferred native compilation.
Files whose names match any regexp are excluded from native compilation." Files whose names match any regexp are excluded from native compilation."
:type '(repeat regexp) :type '(repeat regexp)
:version "28.1") :version "28.1")
(make-obsolete-variable 'native-comp-deferred-compilation-deny-list
'native-comp-jit-compilation-deny-list
"29.1")
(defcustom native-comp-bootstrap-deny-list (defcustom native-comp-bootstrap-deny-list
'() '()
"List of regexps to exclude files from native compilation during bootstrap. "List of regexps to exclude files from native compilation during bootstrap.
@ -4144,11 +4148,11 @@ LOAD and SELECTOR work as described in `native--compile-async'."
(t (error "SELECTOR must be a function a regexp or nil"))) (t (error "SELECTOR must be a function a regexp or nil")))
;; Also exclude files from deferred compilation if ;; Also exclude files from deferred compilation if
;; any of the regexps in ;; any of the regexps in
;; `native-comp-deferred-compilation-deny-list' matches. ;; `native-comp-jit-compilation-deny-list' matches.
(and (eq load 'late) (and (eq load 'late)
(cl-some (lambda (re) (cl-some (lambda (re)
(string-match-p re file)) (string-match-p re file))
native-comp-deferred-compilation-deny-list)))) native-comp-jit-compilation-deny-list))))
(defun native--compile-async (files &optional recursively load selector) (defun native--compile-async (files &optional recursively load selector)
;; BEWARE, this function is also called directly from C. ;; BEWARE, this function is also called directly from C.