From 4732abfcedfa2e9ec969a29b690301af36dd9fd9 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Tue, 16 Jul 2002 14:56:55 +0000 Subject: [PATCH] (init_casetab_once, init_casetab_once): Fix CHAR_TABLE_SET call. --- src/casetab.c | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/src/casetab.c b/src/casetab.c index a361d092012..1660b57241b 100644 --- a/src/casetab.c +++ b/src/casetab.c @@ -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); } -- 2.39.5