71 |
while (tem = Fcase_table_p (obj), NILP (tem)) |
while (tem = Fcase_table_p (obj), NILP (tem)) |
72 |
obj = wrong_type_argument (Qcase_table_p, obj); |
obj = wrong_type_argument (Qcase_table_p, obj); |
73 |
return (obj); |
return (obj); |
74 |
} |
} |
75 |
|
|
76 |
DEFUN ("current-case-table", Fcurrent_case_table, Scurrent_case_table, 0, 0, 0, |
DEFUN ("current-case-table", Fcurrent_case_table, Scurrent_case_table, 0, 0, 0, |
77 |
doc: /* Return the case table of the current buffer. */) |
doc: /* Return the case table of the current buffer. */) |
158 |
XCHAR_TABLE (table)->extras[2] = eqv; |
XCHAR_TABLE (table)->extras[2] = eqv; |
159 |
} |
} |
160 |
|
|
161 |
|
/* This is so set_image_of_range_1 in regex.c can find the EQV table. */ |
162 |
|
XCHAR_TABLE (canon)->extras[2] = eqv; |
163 |
|
|
164 |
if (standard) |
if (standard) |
165 |
Vascii_downcase_table = table; |
Vascii_downcase_table = table; |
166 |
else |
else |