Mercurial > emacs

comparison src/casetab.c @ 17340:64722b193f14

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(init_casetab_once): Initialize the purpose slot.
author Richard M. Stallman <rms@gnu.org>
date Tue, 08 Apr 1997 19:05:57 +0000
parents d4c102d5ac70
children 5977a67b9356
comparison
equal deleted inserted replaced
17339:8ce3d2e461bc 17340:64722b193f14
212 create char tables. */ 212 create char tables. */
213 Fput (Qcase_table, Qchar_table_extra_slots, make_number (3)); 213 Fput (Qcase_table, Qchar_table_extra_slots, make_number (3));
214 214
215 down = Fmake_char_table (Qcase_table, Qnil); 215 down = Fmake_char_table (Qcase_table, Qnil);
216 Vascii_downcase_table = down; 216 Vascii_downcase_table = down;
217 XCHAR_TABLE (down)->purpose = Qcase_table;
217 218
218 for (i = 0; i < 256; i++) 219 for (i = 0; i < 256; i++)
219 XCHAR_TABLE (down)->contents[i] = (i >= 'A' && i <= 'Z') ? i + 040 : i; 220 XCHAR_TABLE (down)->contents[i] = (i >= 'A' && i <= 'Z') ? i + 040 : i;
220 221
221 XCHAR_TABLE (down)->extras[1] = Fcopy_sequence (down); 222 XCHAR_TABLE (down)->extras[1] = Fcopy_sequence (down);