# HG changeset patch # User Dave Love # Date 1026831415 0 # Node ID 5a64797b3ca17cc07bf9bc2964561d98a3aa65ef # Parent 6f9164905a7cf889e5474deab4652de598a1772b (init_casetab_once, init_casetab_once): Fix CHAR_TABLE_SET call. diff -r 6f9164905a7c -r 5a64797b3ca1 src/casetab.c --- a/src/casetab.c Tue Jul 16 14:56:33 2002 +0000 +++ b/src/casetab.c Tue Jul 16 14:56:55 2002 +0000 @@ -283,7 +283,8 @@ XCHAR_TABLE (down)->purpose = Qcase_table; for (i = 0; i < 128; i++) - CHAR_TABLE_SET (down, i, (i >= 'A' && i <= 'Z') ? i + ('a' - 'A') : i); + CHAR_TABLE_SET (down, i, + make_number ((i >= 'A' && i <= 'Z') ? i + ('a' - 'A') : i)); XCHAR_TABLE (down)->extras[1] = Fcopy_sequence (down); @@ -291,11 +292,11 @@ XCHAR_TABLE (down)->extras[0] = up; for (i = 0; i < 128; i++) - CHAR_TABLE_SET (up, i, ((i >= 'A' && i <= 'Z') - ? i + ('a' - 'A') - : ((i >= 'a' && i <= 'z') - ? i + ('A' - 'a') - : i))); + CHAR_TABLE_SET (up, i, make_number ((i >= 'A' && i <= 'Z') + ? i + ('a' - 'A') + : ((i >= 'a' && i <= 'z') + ? i + ('A' - 'a') + : i))); XCHAR_TABLE (down)->extras[2] = Fcopy_sequence (up); }