Commit 4732abfc authored by Dave Love's avatar Dave Love
Browse files

(init_casetab_once, init_casetab_once): Fix

CHAR_TABLE_SET call.
parent 0b261f59
......@@ -283,7 +283,8 @@ init_casetab_once ()
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 @@ init_casetab_once ()
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);
}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment