martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(init_casetab_once, init_casetab_once): Fix

Browse Source 
CHAR_TABLE_SET call.
This commit is contained in:
Dave Love
2002-07-16 14:56:55 +00:00
parent 0b261f5979
commit 4732abfced
1 changed files with 7 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
src/casetab.c
View File

@@ -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);
}