Mercurial > emacs

changeset 9137:412e94c1dbf2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(casify_object): Use type test macros.
author Karl Heuer <kwzh@gnu.org>
date Tue, 27 Sep 1994 03:10:02 +0000
parents 083a2f0f63f6
children 6c814eb4d892
files src/casefiddle.c
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/src/casefiddle.c	Tue Sep 27 03:09:02 1994 +0000
+++ b/src/casefiddle.c	Tue Sep 27 03:10:02 1994 +0000
@@ -36,7 +36,7 @@
 
   while (1)
     {
-      if (XTYPE (obj) == Lisp_Int)
+      if (INTEGERP (obj))
 	{
 	  c = XINT (obj);
 	  if (c >= 0 && c <= 0400)
@@ -48,7 +48,7 @@
 	    }
 	  return obj;
 	}
-      if (XTYPE (obj) == Lisp_String)
+      if (STRINGP (obj))
 	{
 	  obj = Fcopy_sequence (obj);
 	  len = XSTRING (obj)->size;