Mercurial > emacs

diff src/category.c @ 17187:9ab0c08a3359

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Adjusted for the change of CHAR_TABLE_ORDINARY_SLOTS.
author Kenichi Handa <handa@m17n.org>
date Tue, 18 Mar 1997 23:31:34 +0000
parents 70194012fb3a
children ed53084a1655
line wrap: on
line diff
--- a/src/category.c	Tue Mar 18 23:31:34 1997 +0000
+++ b/src/category.c	Tue Mar 18 23:31:34 1997 +0000
@@ -352,7 +352,7 @@
   
   set_value = NILP (reset) ? Qt : Qnil;
 
-  if (SINGLE_BYTE_CHAR_P (c))
+  if ((c) < CHAR_TABLE_SINGLE_BYTE_SLOTS)
     {
       val = XCHAR_TABLE (table)->contents[c];
       if (!CATEGORY_SET_P (val))
@@ -366,11 +366,11 @@
   SPLIT_NON_ASCII_CHAR (c, charset, c1, c2);
 
   /* The top level table.  */
-  val = XCHAR_TABLE (table)->contents[charset];
+  val = XCHAR_TABLE (table)->contents[charset + 128];
   if (NILP (val))
     {
       category_set = MAKE_CATEGORY_SET;
-      XCHAR_TABLE (table)->contents[charset] = category_set;
+      XCHAR_TABLE (table)->contents[charset + 128] = category_set;
     }
   else if (CATEGORY_SET_P (val))
     category_set = val;
@@ -390,7 +390,7 @@
   if (!CHAR_TABLE_P (val))
     {
       val = Fmake_char_table (Qnil, Qnil);
-      XCHAR_TABLE (table)->contents[charset] = val;
+      XCHAR_TABLE (table)->contents[charset + 128] = val;
       /* We must set default category set of CHARSET in `defalt' slot.  */
       XCHAR_TABLE (val)->defalt = category_set;
     }