283 |
XCHAR_TABLE (down)->purpose = Qcase_table; |
XCHAR_TABLE (down)->purpose = Qcase_table; |
284 |
|
|
285 |
for (i = 0; i < 128; i++) |
for (i = 0; i < 128; i++) |
286 |
CHAR_TABLE_SET (down, i, (i >= 'A' && i <= 'Z') ? i + ('a' - 'A') : i); |
CHAR_TABLE_SET (down, i, |
287 |
|
make_number ((i >= 'A' && i <= 'Z') ? i + ('a' - 'A') : i)); |
288 |
|
|
289 |
XCHAR_TABLE (down)->extras[1] = Fcopy_sequence (down); |
XCHAR_TABLE (down)->extras[1] = Fcopy_sequence (down); |
290 |
|
|
292 |
XCHAR_TABLE (down)->extras[0] = up; |
XCHAR_TABLE (down)->extras[0] = up; |
293 |
|
|
294 |
for (i = 0; i < 128; i++) |
for (i = 0; i < 128; i++) |
295 |
CHAR_TABLE_SET (up, i, ((i >= 'A' && i <= 'Z') |
CHAR_TABLE_SET (up, i, make_number ((i >= 'A' && i <= 'Z') |
296 |
? i + ('a' - 'A') |
? i + ('a' - 'A') |
297 |
: ((i >= 'a' && i <= 'z') |
: ((i >= 'a' && i <= 'z') |
298 |
? i + ('A' - 'a') |
? i + ('A' - 'a') |
299 |
: i))); |
: i))); |
300 |
|
|
301 |
XCHAR_TABLE (down)->extras[2] = Fcopy_sequence (up); |
XCHAR_TABLE (down)->extras[2] = Fcopy_sequence (up); |
302 |
} |
} |