/[emacs]/emacs/src/casetab.c
ViewVC logotype

Diff of /emacs/src/casetab.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.26.2.1 by handa, Fri Mar 1 01:11:39 2002 UTC revision 1.26.2.2 by fx, Tue Jul 16 14:56:55 2002 UTC
# Line 283  init_casetab_once () Line 283  init_casetab_once ()
283    XCHAR_TABLE (down)->purpose = Qcase_table;    XCHAR_TABLE (down)->purpose = Qcase_table;
284    
285    for (i = 0; i < 128; i++)    for (i = 0; i < 128; i++)
286      CHAR_TABLE_SET (down, i, (i >= 'A' && i <= 'Z') ? i + ('a' - 'A') : i);      CHAR_TABLE_SET (down, i,
287                        make_number ((i >= 'A' && i <= 'Z') ? i + ('a' - 'A') : i));
288    
289    XCHAR_TABLE (down)->extras[1] = Fcopy_sequence (down);    XCHAR_TABLE (down)->extras[1] = Fcopy_sequence (down);
290    
# Line 291  init_casetab_once () Line 292  init_casetab_once ()
292    XCHAR_TABLE (down)->extras[0] = up;    XCHAR_TABLE (down)->extras[0] = up;
293    
294    for (i = 0; i < 128; i++)    for (i = 0; i < 128; i++)
295      CHAR_TABLE_SET (up, i, ((i >= 'A' && i <= 'Z')      CHAR_TABLE_SET (up, i, make_number ((i >= 'A' && i <= 'Z')
296                              ? i + ('a' - 'A')                                          ? i + ('a' - 'A')
297                              : ((i >= 'a' && i <= 'z')                                          : ((i >= 'a' && i <= 'z')
298                                 ? i + ('A' - 'a')                                             ? i + ('A' - 'a')
299                                 : i)));                                             : i)));
300    
301    XCHAR_TABLE (down)->extras[2] = Fcopy_sequence (up);    XCHAR_TABLE (down)->extras[2] = Fcopy_sequence (up);
302  }  }

Legend:
Removed from v.1.26.2.1  
changed lines
  Added in v.1.26.2.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26