From: Karl Heuer <kwzh@gnu.org>
Date: Tue, 27 Sep 1994 03:10:02 +0000 (+0000)
Subject: (casify_object): Use type test macros.
X-Git-Tag: emacs-19.34~6717
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9d05e3d4c4dcaf7c8d025011fd90bab1ce9f36ea;p=emacs.git

(casify_object): Use type test macros.
---

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;