*** empty log message ***

[gnu-emacs] / src / category.c

diff --git a/src/category.c b/src/category.c
index 728b3a8e91ef9dfdee02d5a3e3310a296942cb76..c74b483e7d91f9cafb0513d09cca12c68658ec80 100644 (file)
--- a/src/category.c
+++ b/src/category.c
@@ -272,11 +272,12 @@ DEFUN ("set-category-table", Fset_category_table, Sset_category_table, 1, 1, 0,
   (table)
      Lisp_Object table;
 {
+  int idx;
   table = check_category_table (table);
   current_buffer->category_table = table;
   /* Indicate that this buffer now has a specified category table.  */
-  current_buffer->local_var_flags
-    |= XFASTINT (buffer_local_flags.category_table);
+  idx = PER_BUFFER_VAR_IDX (category_table);
+  SET_PER_BUFFER_VALUE_P (current_buffer, idx, 1);
   return table;
 }
 
@@ -393,7 +394,7 @@ If optional fourth argument RESET is non-nil,\n\
       return Qnil;
     }
 
-  SPLIT_NON_ASCII_CHAR (c, charset, c1, c2);
+  SPLIT_CHAR (c, charset, c1, c2);
 
   /* The top level table.  */
   val = XCHAR_TABLE (table)->contents[charset + 128];