Revert "Rename to inhibit-automatic-native-compilation"

This reverts commit f97993ee66.
This commit is contained in:
Andrea Corallo 2023-02-13 10:15:33 +01:00
parent cc30422825
commit 3969a34fa1
7 changed files with 17 additions and 18 deletions

View file

@ -981,7 +981,7 @@ whether native-compilation is available should use this predicate.
This section documents the variables that control This section documents the variables that control
native-compilation. native-compilation.
@defvar inhibit-automatic-native-compilation @defvar inhibit-native-compilation
If your Emacs has support for native compilation, Emacs will (by If your Emacs has support for native compilation, Emacs will (by
default) compile the Lisp files you're loading in the background, and default) compile the Lisp files you're loading in the background, and
then install the native-compiled versions of the functions. If you then install the native-compiled versions of the functions. If you
@ -995,7 +995,7 @@ files, the compiler may still be invoked to install @dfn{trampolines}
if any built-in functions are redefined. However, these trampolines if any built-in functions are redefined. However, these trampolines
will not get written to your cache directory. will not get written to your cache directory.
You can also use the @samp{EMACS_INHIBIT_AUTOMATIC_NATIVE_COMPILATION} You can also use the @samp{EMACS_INHIBIT_NATIVE_COMPILATION}
environment variable to disable native compilation. environment variable to disable native compilation.
@end defvar @end defvar

View file

@ -199,11 +199,12 @@ load time.
** Native Compilation ** Native Compilation
+++ +++
*** New variable 'inhibit-automatic-native-compilation'. *** New variable 'inhibit-native-compilation'.
If set, Emacs will inhibit native compilation (and won't write If set, Emacs will inhibit native compilation (and won't write
anything to the eln cache automatically). The variable is initialized anything to the eln cache automatically). The variable is initialised
during Emacs startup from the environment variable from the EMACS_INHIBIT_NATIVE_COMPILATION environment variable on
'EMACS_INHIBIT_AUTOMATIC_NATIVE_COMPILATION'. Emacs startup.
--- ---
*** New command 'native-compile-prune-cache'. *** New command 'native-compile-prune-cache'.

View file

@ -3805,7 +3805,7 @@ Return the trampoline if found or nil otherwise."
form nil form nil
;; If we've disabled nativecomp, don't write the trampolines to ;; If we've disabled nativecomp, don't write the trampolines to
;; the eln cache (but create them). ;; the eln cache (but create them).
(and (not inhibit-automatic-native-compilation) (and (not inhibit-native-compilation)
(cl-loop (cl-loop
for dir in (if native-compile-target-directory for dir in (if native-compile-target-directory
(list (expand-file-name comp-native-version-dir (list (expand-file-name comp-native-version-dir

View file

@ -220,8 +220,8 @@ All commands in `lisp-mode-shared-map' are inherited by this map."
Load the compiled code when finished. Load the compiled code when finished.
Use `emacs-lisp-byte-compile-and-load' in combination with Use `emacs-lisp-byte-compile-and-load' in combination with
`inhibit-automatic-native-compilation' set to nil to achieve `inhibit-native-compilation' set to nil to achieve asynchronous
asynchronous native compilation." native compilation."
(interactive nil emacs-lisp-mode) (interactive nil emacs-lisp-mode)
(emacs-lisp--before-compile-buffer) (emacs-lisp--before-compile-buffer)
(load (native-compile buffer-file-name))) (load (native-compile buffer-file-name)))

View file

@ -542,7 +542,7 @@ DIRS are relative."
(setq comp--compilable t)) (setq comp--compilable t))
(defvar native-comp-eln-load-path) (defvar native-comp-eln-load-path)
(defvar inhibit-automatic-native-compilation) (defvar inhibit-native-compilation)
(defvar comp-enable-subr-trampolines) (defvar comp-enable-subr-trampolines)
(defvar startup--original-eln-load-path nil (defvar startup--original-eln-load-path nil
@ -580,8 +580,7 @@ It sets `command-line-processed', processes the command-line,
reads the initialization files, etc. reads the initialization files, etc.
It is the default value of the variable `top-level'." It is the default value of the variable `top-level'."
;; Allow disabling automatic .elc->.eln processing. ;; Allow disabling automatic .elc->.eln processing.
(setq inhibit-automatic-native-compilation (setq inhibit-native-compilation (getenv "EMACS_INHIBIT_NATIVE_COMPILATION"))
(getenv "EMACS_INHIBIT_AUTOMATIC_NATIVE_COMPILATION"))
(if command-line-processed (if command-line-processed
(message internal--top-level-message) (message internal--top-level-message)
@ -601,7 +600,7 @@ It is the default value of the variable `top-level'."
;; in this session. This is necessary if libgccjit is not ;; in this session. This is necessary if libgccjit is not
;; available on MS-Windows, but Emacs was built with ;; available on MS-Windows, but Emacs was built with
;; native-compilation support. ;; native-compilation support.
(setq inhibit-automatic-native-compilation t (setq inhibit-native-compilation t
comp-enable-subr-trampolines nil)) comp-enable-subr-trampolines nil))
;; Form `native-comp-eln-load-path'. ;; Form `native-comp-eln-load-path'.

View file

@ -1895,7 +1895,7 @@ instead; it will indirectly limit the specpdl stack size as well.")
(make-obsolete-variable 'max-specpdl-size nil "29.1") (make-obsolete-variable 'max-specpdl-size nil "29.1")
(make-obsolete-variable 'native-comp-deferred-compilation (make-obsolete-variable 'native-comp-deferred-compilation
'inhibit-automatic-native-compilation "29.1") 'inhibit-native-compilation "29.1")
;;;; Alternate names for functions - these are not being phased out. ;;;; Alternate names for functions - these are not being phased out.

View file

@ -5174,7 +5174,7 @@ maybe_defer_native_compilation (Lisp_Object function_name,
return; return;
if (!native_comp_deferred_compilation if (!native_comp_deferred_compilation
|| !NILP (Vinhibit_automatic_native_compilation) || !NILP (Vinhibit_native_compilation)
|| noninteractive || noninteractive
|| !NILP (Vpurify_flag) || !NILP (Vpurify_flag)
|| !COMPILEDP (definition) || !COMPILEDP (definition)
@ -5678,13 +5678,12 @@ For internal use. */);
doc: /* Non-nil when comp.el can be native compiled. doc: /* Non-nil when comp.el can be native compiled.
For internal use. */); For internal use. */);
/* Compiler control customizes. */ /* Compiler control customizes. */
DEFVAR_LISP ("inhibit-automatic-native-compilation", DEFVAR_LISP ("inhibit-native-compilation", Vinhibit_native_compilation,
Vinhibit_automatic_native_compilation,
doc: /* If non-nil, inhibit automatic native compilation of loaded .elc files. doc: /* If non-nil, inhibit automatic native compilation of loaded .elc files.
After compilation, each function definition is updated to the native After compilation, each function definition is updated to the native
compiled one. */); compiled one. */);
Vinhibit_automatic_native_compilation = Qnil; Vinhibit_native_compilation = Qnil;
DEFVAR_BOOL ("native-comp-deferred-compilation", DEFVAR_BOOL ("native-comp-deferred-compilation",
native_comp_deferred_compilation, native_comp_deferred_compilation,