From 40736357b8b811ffbe9023527db5c2a91a9c7a5a Mon Sep 17 00:00:00 2001 From: Andrea Corallo <akrl@sdf.org> Date: Wed, 5 May 2021 17:18:07 +0200 Subject: Rename feature `nativecomp' into `native-compile' * test/src/comp-tests.el : Rename feature `nativecomp' into `native-compile'. * test/lisp/help-fns-tests.el (help-fns-test-lisp-defun): Likewise. * src/comp.c (syms_of_comp): Likewise. * lisp/startup.el (normal-top-level): Likewise. * lisp/loadup.el: Likewise. * lisp/help.el (help-function-arglist): Likewise. * lisp/emacs-lisp/package.el (package--native-compile-async) (package--delete-directory): Likewise. * lisp/emacs-lisp/nadvice.el (advice--add-function): Likewise. * lisp/emacs-lisp/comp.el (comp-ensure-native-compiler): Likewise. * lisp/emacs-lisp/advice.el (ad-add-advice): Likewise. --- lisp/help.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'lisp/help.el') diff --git a/lisp/help.el b/lisp/help.el index 6ba59ae852d..e70041aea4b 100644 --- a/lisp/help.el +++ b/lisp/help.el @@ -1890,7 +1890,7 @@ the same names as used in the original source code, when possible." ((and (byte-code-function-p def) (listp (aref def 0))) (aref def 0)) ((eq (car-safe def) 'lambda) (nth 1 def)) ((eq (car-safe def) 'closure) (nth 2 def)) - ((and (featurep 'nativecomp) + ((and (featurep 'native-compile) (subrp def) (listp (subr-native-lambda-list def))) (subr-native-lambda-list def)) -- cgit v1.2.3