Mercurial > emacs

changeset 88851:5a64797b3ca1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(init_casetab_once, init_casetab_once): Fix CHAR_TABLE_SET call.
author Dave Love <fx@gnu.org>
date Tue, 16 Jul 2002 14:56:55 +0000
parents 6f9164905a7c
children 9a7268b7a742
files src/casetab.c
diffstat 1 files changed, 7 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- 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);
 }