From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 17 May 2003 12:44:28 +0000 (+0000)
Subject: (set_case_table): Pass new arg to map_char_table.
X-Git-Tag: ttn-vms-21-2-B4~10133
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e0c04065bdadbdfd94f9d6c6f05f25d7ae153197;p=emacs.git

(set_case_table): Pass new arg to map_char_table.
---

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