Mercurial > emacs
changeset 9136:083a2f0f63f6
(STRING256_P): Use type test macros.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Tue, 27 Sep 1994 03:09:02 +0000 |
| parents | 551c9e4fa12a |
| children | 412e94c1dbf2 |
| files | src/casetab.c |
| diffstat | 1 files changed, 1 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/src/casetab.c Tue Sep 27 03:08:20 1994 +0000 +++ b/src/casetab.c Tue Sep 27 03:09:02 1994 +0000 @@ -41,8 +41,7 @@ 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))