From: Andrea Corallo <akrl@sdf.org>
Date: Sat, 19 Sep 2020 14:13:56 +0000 (+0200)
Subject: Make CHECK_SUBR public
X-Git-Tag: emacs-28.0.90~2727^2~428
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2ab0966b2fdf3a64d061727f005d32c5aad27594;p=emacs.git

Make CHECK_SUBR public

	* src/data.c (CHECK_SUBR): Move from here to...
	* src/lisp.h (CHECK_SUBR): ...to here.
---

diff --git a/src/data.c b/src/data.c
index 3f035269de1..8c39c319110 100644
--- a/src/data.c
+++ b/src/data.c
@@ -87,12 +87,6 @@ XOBJFWD (lispfwd a)
   return a.fwdptr;
 }
 
-static void
-CHECK_SUBR (Lisp_Object x)
-{
-  CHECK_TYPE (SUBRP (x), Qsubrp, x);
-}
-
 static void
 set_blv_found (struct Lisp_Buffer_Local_Value *blv, int found)
 {
diff --git a/src/lisp.h b/src/lisp.h
index cbc6a666471..452f48f3468 100644
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -2982,6 +2982,12 @@ CHECK_INTEGER (Lisp_Object x)
 {
   CHECK_TYPE (INTEGERP (x), Qnumberp, x);
 }
+
+INLINE void
+CHECK_SUBR (Lisp_Object x)
+{
+  CHECK_TYPE (SUBRP (x), Qsubrp, x);
+}
 
 
 /* If we're not dumping using the legacy dumper and we might be using