(init_casetab_once, init_casetab_once): Fix

CHAR_TABLE_SET call.

diff --git a/src/casetab.c b/src/casetab.c
index a361d09201268aefdf966800c5a43a79d2ff3a62..1660b57241bf7b9d874f650a26b1dd9b17b1b44f 100644 (file)
--- 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);
 }