fix subr-native-elisp-p predicate name

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 13bc3de5ac98d5075299e629554cd0a194d94537..209c4e68b6a782c50b1855c5b8d31b0219a82af5 100644 (file)
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -1387,7 +1387,7 @@ This can run just once."
              (callee-in-unit (gethash callee
                                       (comp-ctxt-funcs-h comp-ctxt))))
         (cond
-         ((and subrp (not (subr-native-elispp f)))
+         ((and subrp (not (subr-native-elisp-p f)))
           ;; Trampoline removal.
           (let* ((maxarg (cdr (subr-arity f)))
                  (call-type (if (if subrp

diff --git a/src/data.c b/src/data.c
index 70068c30a71548605209a39f345530471543f52c..2a32d47c49b4c647eaf28066e21b68bc1ff152c1 100644 (file)
--- a/src/data.c
+++ b/src/data.c
@@ -865,7 +865,7 @@ SUBR must be a built-in function.  */)
 }
 
 #ifdef HAVE_NATIVE_COMP
-DEFUN ("subr-native-elispp", Fsubr_native_elispp, Ssubr_native_elispp, 1, 1, 0,
+DEFUN ("subr-native-elisp-p", Fsubr_native_elisp_p, Ssubr_native_elisp_p, 1, 1, 0,
        doc: /* Return t if the subr is native compiled elisp,
 nil otherwise.  */)
   (Lisp_Object subr)
@@ -3995,7 +3995,7 @@ syms_of_data (void)
   defsubr (&Ssubr_arity);
   defsubr (&Ssubr_name);
 #ifdef HAVE_NATIVE_COMP
-  defsubr (&Ssubr_native_elispp);
+  defsubr (&Ssubr_native_elisp_p);
 #endif
 #ifdef HAVE_MODULES
   defsubr (&Suser_ptrp);