From: Andrea Corallo <akrl@sdf.org>
Date: Thu, 26 Sep 2019 10:11:13 +0000 (+0200)
Subject: fix subr-native-elisp-p predicate name
X-Git-Tag: emacs-28.0.90~2727^2~1106
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7d3da0a37edd57f6a31dff4864bcf1753de48698;p=emacs.git

fix subr-native-elisp-p predicate name
---

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 13bc3de5ac9..209c4e68b6a 100644
--- 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 70068c30a71..2a32d47c49b 100644
--- 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);