fix naming for predicate SUBR_NATIVE_COMPILEDP

diff --git a/src/alloc.c b/src/alloc.c
index 6d6f6934bab073825383078a99bfda507af4c85a..faa8e703937a489f4f25d280eee9f33c4e2d9f8c 100644 (file)
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -6564,7 +6564,7 @@ mark_object (Lisp_Object arg)
            break;
 
          case PVEC_SUBR:
-           if (SUBRP_NATIVE_COMPILEDP (obj))
+           if (SUBR_NATIVE_COMPILEDP (obj))
              {
                set_vector_marked (ptr);
                struct Lisp_Subr *subr = XSUBR (obj);
@@ -6715,7 +6715,7 @@ survives_gc_p (Lisp_Object obj)
 
     case Lisp_Vectorlike:
       survives_p =
-       (SUBRP (obj) && !SUBRP_NATIVE_COMPILEDP (obj)) ||
+       (SUBRP (obj) && !SUBR_NATIVE_COMPILEDP (obj)) ||
        vector_marked_p (XVECTOR (obj));
       break;
 

diff --git a/src/data.c b/src/data.c
index d20db4dc3a340ee1387c5a6a1a20439628f2e9eb..191fb3136879256e45e7c9a5972db40f2656f563 100644 (file)
--- a/src/data.c
+++ b/src/data.c
@@ -872,7 +872,7 @@ DEFUN ("subr-native-elisp-p", Fsubr_native_elisp_p, Ssubr_native_elisp_p, 1, 1,
 nil otherwise.  */)
   (Lisp_Object object)
 {
-  return SUBRP_NATIVE_COMPILEDP (object) ? Qt : Qnil;
+  return SUBR_NATIVE_COMPILEDP (object) ? Qt : Qnil;
 }
 
 DEFUN ("subr-native-comp-unit", Fsubr_native_comp_unit,
@@ -919,7 +919,7 @@ Value, if non-nil, is a list (interactive SPEC).  */)
 
   if (SUBRP (fun))
     {
-      if (SUBRP_NATIVE_COMPILEDP (fun) && XSUBR (fun)->native_intspec)
+      if (SUBR_NATIVE_COMPILEDP (fun) && XSUBR (fun)->native_intspec)
        return XSUBR (fun)->native_intspec;
 
       const char *spec = XSUBR (fun)->intspec;

diff --git a/src/doc.c b/src/doc.c
index 2c96fc15a7cc699e43d76a027467bac70ecad32c..192e20110932ee25207bf49c4ce7fc213e534f28 100644 (file)
--- a/src/doc.c
+++ b/src/doc.c
@@ -510,7 +510,7 @@ store_function_docstring (Lisp_Object obj, EMACS_INT offset)
            XSETCAR (tem, make_fixnum (offset));
        }
     }
-  else if (SUBRP_NATIVE_COMPILEDP (fun))
+  else if (SUBR_NATIVE_COMPILEDP (fun))
     {
       XSUBR (fun)->native_doc = Qnil;
     }

diff --git a/src/lisp.h b/src/lisp.h
index a4cabc348557a44ef1cd7a99ad4f65e09c34d9ab..69db8cdef103194e9751d7b78c1ad4f7b9f32b63 100644 (file)
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -4759,7 +4759,7 @@ extern char *emacs_root_dir (void);
 
 #ifdef HAVE_NATIVE_COMP
 INLINE bool
-SUBRP_NATIVE_COMPILEDP (Lisp_Object a)
+SUBR_NATIVE_COMPILEDP (Lisp_Object a)
 {
   return SUBRP (a) && XSUBR (a)->native_comp_u[0];
 }
@@ -4772,7 +4772,7 @@ allocate_native_comp_unit (void)
 }
 #else
 INLINE bool
-SUBRP_NATIVE_COMPILEDP (Lisp_Object a)
+SUBR_NATIVE_COMPILEDP (Lisp_Object a)
 {
   return false;
 }

diff --git a/src/pdumper.c b/src/pdumper.c
index 422bec47a66bf7d5e029eecb53b6a88988cce8b1..81d48496be286a7308d73d386f8e51379a8ebef2 100644 (file)
--- a/src/pdumper.c
+++ b/src/pdumper.c
@@ -956,7 +956,7 @@ dump_note_reachable (struct dump_context *ctx, Lisp_Object object)
 static void *
 dump_object_emacs_ptr (Lisp_Object lv)
 {
-  if (SUBRP (lv) && !SUBRP_NATIVE_COMPILEDP (lv))
+  if (SUBRP (lv) && !SUBR_NATIVE_COMPILEDP (lv))
     return XSUBR (lv);
   if (dump_builtin_symbol_p (lv))
     return XSYMBOL (lv);
@@ -3962,7 +3962,7 @@ dump_do_fixup (struct dump_context *ctx,
       /* Dump wants a pointer to a Lisp object.
          If DUMP_FIXUP_LISP_OBJECT_RAW, we should stick a C pointer in
          the dump; otherwise, a Lisp_Object.  */
-      if (SUBRP (arg) && !SUBRP_NATIVE_COMPILEDP(arg))
+      if (SUBRP (arg) && !SUBR_NATIVE_COMPILEDP (arg))
         {
           dump_value = emacs_offset (XSUBR (arg));
           if (type == DUMP_FIXUP_LISP_OBJECT)