down = Fmake_char_table (Qcase_table, Qnil);
Vascii_downcase_table = down;
+ XCHAR_TABLE (down)->purpose = Qcase_table;
for (i = 0; i < 256; i++)
XCHAR_TABLE (down)->contents[i] = (i >= 'A' && i <= 'Z') ? i + 040 : i;
Qcase_table_p = intern ("case-table-p");
staticpro (&Qcase_table_p);
+ staticpro (&Vascii_canon_table);
staticpro (&Vascii_downcase_table);
+ staticpro (&Vascii_eqv_table);
+ staticpro (&Vascii_upcase_table);
defsubr (&Scase_table_p);
defsubr (&Scurrent_case_table);