From 8b135af5bbdfb6cf561f92a02ef92e855acc04dd Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Sat, 10 Oct 2020 18:18:09 +0200 Subject: Provide feature nativecomp and make use of it * lisp/emacs-lisp/comp.el (comp-ensure-native-compiler): Use `featurep' to identify if the native compiler is available. * lisp/emacs-lisp/nadvice.el (advice--add-function): Likewise. * lisp/emacs-lisp/package.el (package--delete-directory): Likewise. * lisp/loadup.el: Likewise. * src/comp.c (syms_of_comp): Provide feature nativecomp. --- src/comp.c | 1 + 1 file changed, 1 insertion(+) (limited to 'src') diff --git a/src/comp.c b/src/comp.c index 13343de3d88..0b5a49fd1f1 100644 --- a/src/comp.c +++ b/src/comp.c @@ -5300,6 +5300,7 @@ The last directory of this list is assumed to be the system one. */); doc: /* Hash table subr-name -> bool. */); Vcomp_installed_trampolines_h = CALLN (Fmake_hash_table); + Fprovide (intern_c_string ("nativecomp"), Qnil); #endif /* #ifdef HAVE_NATIVE_COMP */ defsubr (&Snative_comp_available_p); -- cgit v1.3