diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/casetab.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/casetab.c b/src/casetab.c index 306c7df3281..9f9c4f8c5b2 100644 --- a/src/casetab.c +++ b/src/casetab.c | |||
| @@ -138,8 +138,8 @@ set_case_table (table, standard) | |||
| 138 | if (NILP (up)) | 138 | if (NILP (up)) |
| 139 | { | 139 | { |
| 140 | up = Fmake_char_table (Qcase_table, Qnil); | 140 | up = Fmake_char_table (Qcase_table, Qnil); |
| 141 | map_char_table (set_identity, Qnil, table, up, 0, indices); | 141 | map_char_table (set_identity, Qnil, table, table, up, 0, indices); |
| 142 | map_char_table (shuffle, Qnil, table, up, 0, indices); | 142 | map_char_table (shuffle, Qnil, table, table, up, 0, indices); |
| 143 | XCHAR_TABLE (table)->extras[0] = up; | 143 | XCHAR_TABLE (table)->extras[0] = up; |
| 144 | } | 144 | } |
| 145 | 145 | ||
| @@ -147,14 +147,14 @@ set_case_table (table, standard) | |||
| 147 | { | 147 | { |
| 148 | canon = Fmake_char_table (Qcase_table, Qnil); | 148 | canon = Fmake_char_table (Qcase_table, Qnil); |
| 149 | XCHAR_TABLE (table)->extras[1] = canon; | 149 | XCHAR_TABLE (table)->extras[1] = canon; |
| 150 | map_char_table (set_canon, Qnil, table, table, 0, indices); | 150 | map_char_table (set_canon, Qnil, table, table, table, 0, indices); |
| 151 | } | 151 | } |
| 152 | 152 | ||
| 153 | if (NILP (eqv)) | 153 | if (NILP (eqv)) |
| 154 | { | 154 | { |
| 155 | eqv = Fmake_char_table (Qcase_table, Qnil); | 155 | eqv = Fmake_char_table (Qcase_table, Qnil); |
| 156 | map_char_table (set_identity, Qnil, canon, eqv, 0, indices); | 156 | map_char_table (set_identity, Qnil, canon, canon, eqv, 0, indices); |
| 157 | map_char_table (shuffle, Qnil, canon, eqv, 0, indices); | 157 | map_char_table (shuffle, Qnil, canon, canon, eqv, 0, indices); |
| 158 | XCHAR_TABLE (table)->extras[2] = eqv; | 158 | XCHAR_TABLE (table)->extras[2] = eqv; |
| 159 | } | 159 | } |
| 160 | 160 | ||