diff options
| author | Karl Heuer | 1994-09-27 03:09:02 +0000 |
|---|---|---|
| committer | Karl Heuer | 1994-09-27 03:09:02 +0000 |
| commit | 1d80f4daeef46da2e5c4d927b752edf09e782387 (patch) | |
| tree | f0d7a44224f6f45ccbb7337282312fb50b7a55dd /src | |
| parent | ed76f667fce291360d82db80dfee802cfead97c4 (diff) | |
| download | emacs-1d80f4daeef46da2e5c4d927b752edf09e782387.tar.gz emacs-1d80f4daeef46da2e5c4d927b752edf09e782387.zip | |
(STRING256_P): Use type test macros.
Diffstat (limited to 'src')
| -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.") | |||
| 41 | canon = Fcar_safe (Fcdr_safe (Fcdr_safe (table))); | 41 | canon = Fcar_safe (Fcdr_safe (Fcdr_safe (table))); |
| 42 | eqv = Fcar_safe (Fcdr_safe (Fcdr_safe (Fcdr_safe (table)))); | 42 | eqv = Fcar_safe (Fcdr_safe (Fcdr_safe (Fcdr_safe (table)))); |
| 43 | 43 | ||
| 44 | #define STRING256_P(obj) \ | 44 | #define STRING256_P(obj) (STRINGP (obj) && XSTRING (obj)->size == 256) |
| 45 | (XTYPE (obj) == Lisp_String && XSTRING (obj)->size == 256) | ||
| 46 | 45 | ||
| 47 | return (STRING256_P (down) | 46 | return (STRING256_P (down) |
| 48 | && (NILP (up) || STRING256_P (up)) | 47 | && (NILP (up) || STRING256_P (up)) |