From 1d80f4daeef46da2e5c4d927b752edf09e782387 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Tue, 27 Sep 1994 03:09:02 +0000 Subject: [PATCH] (STRING256_P): Use type test macros. --- src/casetab.c | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/src/casetab.c b/src/casetab.c index 34a81dc9b06..25aac5eca09 100644 --- a/src/casetab.c +++ b/src/casetab.c @@ -41,8 +41,7 @@ See `set-case-table' for more information on these data structures.") canon = Fcar_safe (Fcdr_safe (Fcdr_safe (table))); eqv = Fcar_safe (Fcdr_safe (Fcdr_safe (Fcdr_safe (table)))); -#define STRING256_P(obj) \ - (XTYPE (obj) == Lisp_String && XSTRING (obj)->size == 256) +#define STRING256_P(obj) (STRINGP (obj) && XSTRING (obj)->size == 256) return (STRING256_P (down) && (NILP (up) || STRING256_P (up)) -- 2.39.5