X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=src%2Fchartab.c;h=cd306198feefe4bbc8e580d7f46a78bfed8dc312;hb=b2e1fbe0a6729cb6987c9cb8dc1857494f0a0aea;hp=4ff2a57a8e60ec47b5f86a854a77cc67fb6204fa;hpb=1a457ecfa8bbb121c48cccd70779a0a23cf95e46;p=chise%2Fxemacs-chise.git

diff --git a/src/chartab.c b/src/chartab.c
index 4ff2a57..cd30619 100644
--- a/src/chartab.c
+++ b/src/chartab.c
@@ -3100,7 +3100,8 @@ Store character's ATTRIBUTES.
 	    signal_simple_error ("Invalid argument", attributes);
 	  if (!NILP (ccs = Ffind_charset (Fcar (cell)))
 	      && ((XCHARSET_FINAL (ccs) != 0) ||
-		  (XCHARSET_UCS_MAX (ccs) > 0)) )
+		  (XCHARSET_MAX_CODE (ccs) > 0) ||
+		  (EQ (ccs, Vcharset_chinese_big5))) )
 	    {
 	      cell = Fcdr (cell);
 	      if (CONSP (cell))
@@ -3327,7 +3328,7 @@ check_category_table (Lisp_Object object, Lisp_Object default_)
 
 int
 check_category_char (Emchar ch, Lisp_Object table,
-		     unsigned int designator, unsigned int not)
+		     unsigned int designator, unsigned int not_p)
 {
   REGISTER Lisp_Object temp;
   Lisp_Char_Table *ctbl;
@@ -3338,10 +3339,10 @@ check_category_char (Emchar ch, Lisp_Object table,
   ctbl = XCHAR_TABLE (table);
   temp = get_char_table (ch, ctbl);
   if (NILP (temp))
-    return not;
+    return not_p;
 
   designator -= ' ';
-  return bit_vector_bit (XBIT_VECTOR (temp), designator) ? !not : not;
+  return bit_vector_bit (XBIT_VECTOR (temp), designator) ? !not_p : not_p;
 }
 
 DEFUN ("check-category-at", Fcheck_category_at, 2, 4, 0, /*