diff options
| author | Karl Heuer <kwzh@gnu.org> | 1994-09-27 03:10:02 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1994-09-27 03:10:02 +0000 |
| commit | 9d05e3d4c4dcaf7c8d025011fd90bab1ce9f36ea (patch) | |
| tree | 293cd0e9fd0ab724c4e5efbd04bb9536df6ffcd6 /src/casefiddle.c | |
| parent | 1d80f4daeef46da2e5c4d927b752edf09e782387 (diff) | |
| download | emacs-9d05e3d4c4dcaf7c8d025011fd90bab1ce9f36ea.tar.gz | |
(casify_object): Use type test macros.
Diffstat (limited to 'src/casefiddle.c')
| -rw-r--r-- | src/casefiddle.c | 4 |
1 files 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; |