martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(set_case_table): Pass new arg to map_char_table.

Browse Source
This commit is contained in:
Richard M. Stallman
2003-05-17 12:44:28 +00:00
parent 924261558d
commit e0c04065bd
1 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
src/casetab.c
View File

@@ -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;
}