Mercurial > emacs
diff src/casefiddle.c @ 9137:412e94c1dbf2
(casify_object): Use type test macros.
author | Karl Heuer <kwzh@gnu.org> |
---|---|
date | Tue, 27 Sep 1994 03:10:02 +0000 |
parents | 4887fc1a2dda |
children | e8c880f2723e |
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;