From: Karl Heuer <kwzh@gnu.org>
Date: Tue, 27 Sep 1994 03:09:02 +0000 (+0000)
Subject: (STRING256_P): Use type test macros.
X-Git-Tag: emacs-19.34~6718
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1d80f4daeef46da2e5c4d927b752edf09e782387;p=emacs.git

(STRING256_P): Use type test macros.
---

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))