diff options
| author | Jim Blandy <jimb@redhat.com> | 1992-01-13 21:48:03 +0000 |
|---|---|---|
| committer | Jim Blandy <jimb@redhat.com> | 1992-01-13 21:48:03 +0000 |
| commit | 254f294c2e37a22e04bff74fedfdc9b1fcc93b93 (patch) | |
| tree | 060dbe9a444bcf1c2e1bc7802fc4dfc1717520aa /src/casetab.c | |
| parent | a48a36d045feed054f3532c5596449466a60a3cd (diff) | |
| download | emacs-254f294c2e37a22e04bff74fedfdc9b1fcc93b93.tar.gz | |
entered into RCS
Diffstat (limited to 'src/casetab.c')
| -rw-r--r-- | src/casetab.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/casetab.c b/src/casetab.c index 6d419bfe30f..fa8375ccc69 100644 --- a/src/casetab.c +++ b/src/casetab.c @@ -45,8 +45,8 @@ See `set-case-table' for more information on these data structures.") (XTYPE (obj) == Lisp_String && XSTRING (obj)->size == 256) return (STRING256_P (down) - && (NULL (up) || STRING256_P (up)) - && ((NULL (canon) && NULL (eqv)) + && (NILP (up) || STRING256_P (up)) + && ((NILP (canon) && NILP (eqv)) || (STRING256_P (canon) && STRING256_P (eqv))) ? Qt : Qnil); } @@ -57,7 +57,7 @@ check_case_table (obj) { register Lisp_Object tem; - while (tem = Fcase_table_p (obj), NULL (tem)) + while (tem = Fcase_table_p (obj), NILP (tem)) obj = wrong_type_argument (Qcase_table_p, obj, 0); return (obj); } @@ -132,13 +132,13 @@ set_case_table (table, standard) canon = Fcar_safe (Fcdr_safe (Fcdr_safe (table))); eqv = Fcar_safe (Fcdr_safe (Fcdr_safe (Fcdr_safe (table)))); - if (NULL (up)) + if (NILP (up)) { up = Fmake_string (make_number (256), make_number (0)); compute_trt_inverse (XSTRING (down)->data, XSTRING (up)->data); } - if (NULL (canon)) + if (NILP (canon)) { register int i; unsigned char *upvec = XSTRING (up)->data; |