From 9d05e3d4c4dcaf7c8d025011fd90bab1ce9f36ea Mon Sep 17 00:00:00 2001
From: Karl Heuer <kwzh@gnu.org>
Date: Tue, 27 Sep 1994 03:10:02 +0000
Subject: [PATCH] (casify_object): Use type test macros.

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

diff --git a/src/casefiddle.c b/src/casefiddle.c
index 4fcdcc0fee9..77d7115cab1 100644
--- a/src/casefiddle.c
+++ b/src/casefiddle.c
@@ -36,7 +36,7 @@ casify_object (flag, obj)
 
   while (1)
     {
-      if (XTYPE (obj) == Lisp_Int)
+      if (INTEGERP (obj))
 	{
 	  c = XINT (obj);
 	  if (c >= 0 && c <= 0400)
@@ -48,7 +48,7 @@ casify_object (flag, obj)
 	    }
 	  return obj;
 	}
-      if (XTYPE (obj) == Lisp_String)
+      if (STRINGP (obj))
 	{
 	  obj = Fcopy_sequence (obj);
 	  len = XSTRING (obj)->size;
-- 
2.39.5