X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=src%2Fchartab.c;h=cd306198feefe4bbc8e580d7f46a78bfed8dc312;hb=4f14f955e64fbf24dd2f85fc22c2976c5aad47a0;hp=8f88a7404019566933955ad4d150188c26659f76;hpb=e882472f60228f3d3ae4a5e01a579b43805cc2c8;p=chise%2Fxemacs-chise.git- diff --git a/src/chartab.c b/src/chartab.c index 8f88a74..cd30619 100644 --- a/src/chartab.c +++ b/src/chartab.c @@ -3328,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; @@ -3339,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, /*