native-comp-available-p is the definitive test

* doc/lispref/compile.texi (Native Compilation): Document
native-comp-available-p as the way to test for native compilation.
* lisp/emacs-lisp/package.el (package--native-compile-async):
* test/lisp/mh-e/mh-utils-tests.el (mh-ensure-native-trampolines):
Test for native compilation with native-comp-available-p.

Thank you to Andrea Corallo for reviewing this patch.

diff --git a/doc/lispref/compile.texi b/doc/lispref/compile.texi
index 15d1f4ce53ad52734753ee16adac59205d56ac21..523758c10f58561c0490b7d7b9bf0c6dee34b0f8 100644 (file)
--- a/doc/lispref/compile.texi
+++ b/doc/lispref/compile.texi
@@ -811,8 +811,7 @@ for you to be able to native-compile Lisp code.
 
 @vindex native-compile@r{, a Lisp feature}
   To determine whether the current Emacs process can produce and load
-natively-compiled Lisp code, test whether the @code{native-compile}
-feature is available (@pxref{Named Features}).  Alternatively, call
+natively-compiled Lisp code, call
 @code{native-comp-available-p} (@pxref{Native-Compilation Functions}).
 
   Unlike byte-compiled code, natively-compiled Lisp code is executed

diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el
index 62f5fc734174b01957b6866dfeb30b8331d5c083..5445fa970f8fc146c9e821e2cb7d2327e76548c2 100644 (file)
--- a/lisp/emacs-lisp/package.el
+++ b/lisp/emacs-lisp/package.el
@@ -1081,8 +1081,7 @@ This assumes that `pkg-desc' has already been activated with
   "Native compile installed package PKG-DESC asynchronously.
 This assumes that `pkg-desc' has already been activated with
 `package-activate-1'."
-  (when (and (featurep 'native-compile)
-             (native-comp-available-p))
+  (when (native-comp-available-p)
     (let ((warning-minimum-level :error))
       (native-compile-async (package-desc-dir pkg-desc) t))))
 

diff --git a/test/lisp/mh-e/mh-utils-tests.el b/test/lisp/mh-e/mh-utils-tests.el
index 82afbab6474aadf2cb920598022075321b00ac0a..f1282ab44a6d8b7d99bc70015e1f53b12d53bfdb 100644 (file)
--- a/test/lisp/mh-e/mh-utils-tests.el
+++ b/test/lisp/mh-e/mh-utils-tests.el
@@ -113,7 +113,7 @@ As `call-process'' and `file-directory-p' will be redefined, the
 native compiler will invoke `call-process' to compile the
 respective trampolines.  To avoid interferences with the
 `call-process' mocking we build these AOT."
-  (when (featurep 'native-compile)
+  (when (native-comp-available-p)
     (mapc #'comp-subr-trampoline-install '(call-process file-directory-p))))
 
 (defun mh-test-utils-setup-with-mocks ()