Commit 9d05e3d4 authored by Karl Heuer's avatar Karl Heuer

(casify_object): Use type test macros.

parent 1d80f4da
......@@ -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;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment