[Emacs-diffs] Changes to emacs/src/casetab.c

[Richard M. Stallman]

Index: emacs/src/casetab.c
diff -c emacs/src/casetab.c:1.28 emacs/src/casetab.c:1.29
*** emacs/src/casetab.c:1.28    Tue Feb  4 09:03:11 2003
--- emacs/src/casetab.c Sat May 17 08:44:28 2003
***************
*** 138,145 ****
    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);
        XCHAR_TABLE (table)->extras[0] = up;
      }
  
--- 138,145 ----
    if (NILP (up))
      {
        up = Fmake_char_table (Qcase_table, Qnil);
!       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,160 ****
      {
        canon = Fmake_char_table (Qcase_table, Qnil);
        XCHAR_TABLE (table)->extras[1] = canon;
!       map_char_table (set_canon, Qnil, 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);
        XCHAR_TABLE (table)->extras[2] = eqv;
      }
  
--- 147,160 ----
      {
        canon = Fmake_char_table (Qcase_table, Qnil);
        XCHAR_TABLE (table)->extras[1] = canon;
!       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, canon, eqv, 0, indices);
!       map_char_table (shuffle, Qnil, canon, canon, eqv, 0, indices);
        XCHAR_TABLE (table)->extras[2] = eqv;
      }