From 330cf232bf8812bfe96238bcd62ff75699ed9601 Mon Sep 17 00:00:00 2001
From: Karl Heuer <kwzh@gnu.org>
Date: Tue, 27 Sep 1994 01:20:25 +0000
Subject: [PATCH] (Fsyntax_table_p, describe_syntax): Use type test macros.

---
 src/syntax.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/syntax.c b/src/syntax.c
index 1aba174f7bb..14187b1d8cd 100644
--- a/src/syntax.c
+++ b/src/syntax.c
@@ -111,7 +111,7 @@ Any vector of 256 elements will do.")
   (obj)
      Lisp_Object obj;
 {
-  if (XTYPE (obj) == Lisp_Vector && XVECTOR (obj)->size == 0400)
+  if (VECTORP (obj) && XVECTOR (obj)->size == 0400)
     return Qt;
   return Qnil;
 }
@@ -355,7 +355,7 @@ describe_syntax (value)
 
   Findent_to (make_number (16), make_number (1));
 
-  if (XTYPE (value) != Lisp_Int)
+  if (!INTEGERP (value))
     {
       insert_string ("invalid");
       return;
-- 
2.39.5