diff options
| author | Karl Heuer <kwzh@gnu.org> | 1994-09-27 03:09:02 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1994-09-27 03:09:02 +0000 |
| commit | 6880db3070c1ab099ee2733e3cfd9051f76364d2 (patch) | |
| tree | 19810dfc1ca810f6c1baf9b1a354e43eaa673769 | |
| parent | 6f0820f8efaf4968af3f77755400f36bdde22cce (diff) | |
| download | emacs-6880db3070c1ab099ee2733e3cfd9051f76364d2.tar.gz | |
(STRING256_P): Use type test macros.
| -rw-r--r-- | src/casetab.c | 3 |
1 files changed, 1 insertions, 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)) |