# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1053175468 0
# Node ID 0c0b80172350f4a73676f77f8fe670356f70314c
# Parent  7ef1252841562bb7891ef382bf8232632969e3a4
(set_case_table): Pass new arg to map_char_table.

diff -r 7ef125284156 -r 0c0b80172350 src/casetab.c
--- a/src/casetab.c	Sat May 17 12:42:31 2003 +0000
+++ b/src/casetab.c	Sat May 17 12:44:28 2003 +0000
@@ -138,8 +138,8 @@
   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 @@
     {
       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;
     }