Revert "Rename to inhibit-automatic-native-compilation"
This reverts commit f97993ee66
.
This commit is contained in:
parent
cc30422825
commit
3969a34fa1
7 changed files with 17 additions and 18 deletions
|
@ -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
|
||||||
|
|
||||||
|
|
9
etc/NEWS
9
etc/NEWS
|
@ -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'.
|
||||||
|
|
|
@ -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
|
||||||
|
|
|
@ -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)))
|
||||||
|
|
|
@ -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'.
|
||||||
|
|
|
@ -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.
|
||||||
|
|
|
@ -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,
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue