Commit e0c04065 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(set_case_table): Pass new arg to map_char_table.

parent 92426155
......@@ -138,8 +138,8 @@ set_case_table (table, standard)
if (NILP (up))
{
up = Fmake_char_table (Qcase_table, Qnil);
map_char_table (set_identity, Qnil, table, up, 0, indices);
map_char_table (shuffle, Qnil, table, up, 0, indices);
map_char_table (set_identity, Qnil, table, table, up, 0, indices);
map_char_table (shuffle, Qnil, table, table, up, 0, indices);
XCHAR_TABLE (table)->extras[0] = up;
}
......@@ -147,14 +147,14 @@ set_case_table (table, standard)
{
canon = Fmake_char_table (Qcase_table, Qnil);
XCHAR_TABLE (table)->extras[1] = canon;
map_char_table (set_canon, Qnil, table, table, 0, indices);
map_char_table (set_canon, Qnil, table, table, table, 0, indices);
}
if (NILP (eqv))
{
eqv = Fmake_char_table (Qcase_table, Qnil);
map_char_table (set_identity, Qnil, canon, eqv, 0, indices);
map_char_table (shuffle, Qnil, canon, eqv, 0, indices);
map_char_table (set_identity, Qnil, canon, canon, eqv, 0, indices);
map_char_table (shuffle, Qnil, canon, canon, eqv, 0, indices);
XCHAR_TABLE (table)->extras[2] = eqv;
}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment