Mercurial > emacs

comparison src/casetab.c @ 484:3165b2697c78

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
entered into RCS
author Jim Blandy <jimb@redhat.com>
date Mon, 13 Jan 1992 21:48:03 +0000
parents 49342840ba00
children 5fe52748a72c
comparison
equal deleted inserted replaced
483:00f564a647fa 484:3165b2697c78
43 43
44 #define STRING256_P(obj) \ 44 #define STRING256_P(obj) \
45 (XTYPE (obj) == Lisp_String && XSTRING (obj)->size == 256) 45 (XTYPE (obj) == Lisp_String && XSTRING (obj)->size == 256)
46 46
47 return (STRING256_P (down) 47 return (STRING256_P (down)
48 && (NULL (up) || STRING256_P (up)) 48 && (NILP (up) || STRING256_P (up))
49 && ((NULL (canon) && NULL (eqv)) 49 && ((NILP (canon) && NILP (eqv))
50 || (STRING256_P (canon) && STRING256_P (eqv))) 50 || (STRING256_P (canon) && STRING256_P (eqv)))
51 ? Qt : Qnil); 51 ? Qt : Qnil);
52 } 52 }
53 53
54 static Lisp_Object 54 static Lisp_Object
55 check_case_table (obj) 55 check_case_table (obj)
56 Lisp_Object obj; 56 Lisp_Object obj;
57 { 57 {
58 register Lisp_Object tem; 58 register Lisp_Object tem;
59 59
60 while (tem = Fcase_table_p (obj), NULL (tem)) 60 while (tem = Fcase_table_p (obj), NILP (tem))
61 obj = wrong_type_argument (Qcase_table_p, obj, 0); 61 obj = wrong_type_argument (Qcase_table_p, obj, 0);
62 return (obj); 62 return (obj);
63 } 63 }
64 64
65 DEFUN ("current-case-table", Fcurrent_case_table, Scurrent_case_table, 0, 0, 0, 65 DEFUN ("current-case-table", Fcurrent_case_table, Scurrent_case_table, 0, 0, 0,
130 down = Fcar_safe (table); 130 down = Fcar_safe (table);
131 up = Fcar_safe (Fcdr_safe (table)); 131 up = Fcar_safe (Fcdr_safe (table));
132 canon = Fcar_safe (Fcdr_safe (Fcdr_safe (table))); 132 canon = Fcar_safe (Fcdr_safe (Fcdr_safe (table)));
133 eqv = Fcar_safe (Fcdr_safe (Fcdr_safe (Fcdr_safe (table)))); 133 eqv = Fcar_safe (Fcdr_safe (Fcdr_safe (Fcdr_safe (table))));
134 134
135 if (NULL (up)) 135 if (NILP (up))
136 { 136 {
137 up = Fmake_string (make_number (256), make_number (0)); 137 up = Fmake_string (make_number (256), make_number (0));
138 compute_trt_inverse (XSTRING (down)->data, XSTRING (up)->data); 138 compute_trt_inverse (XSTRING (down)->data, XSTRING (up)->data);
139 } 139 }
140 140
141 if (NULL (canon)) 141 if (NILP (canon))
142 { 142 {
143 register int i; 143 register int i;
144 unsigned char *upvec = XSTRING (up)->data; 144 unsigned char *upvec = XSTRING (up)->data;
145 unsigned char *downvec = XSTRING (down)->data; 145 unsigned char *downvec = XSTRING (down)->data;
146 146