From: Karl Heuer <kwzh@gnu.org>
Date: Tue, 27 Sep 1994 01:20:25 +0000 (+0000)
Subject: (Fsyntax_table_p, describe_syntax): Use type test macros.
X-Git-Tag: emacs-19.34~6743
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=330cf232bf8812bfe96238bcd62ff75699ed9601;p=emacs.git

(Fsyntax_table_p, describe_syntax): Use type test macros.
---

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;