Mercurial > hg > xemacs-beta

comparison src/chartab.c @ 458:c33ae14dd6d0 r21-2-44

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-44
author cvs
date Mon, 13 Aug 2007 11:42:25 +0200
parents 3d3049ae1304
children 183866b06e0b
comparison
equal deleted inserted replaced
457:4b9290a33024 458:c33ae14dd6d0
1609 return object; 1609 return object;
1610 } 1610 }
1611 1611
1612 int 1612 int
1613 check_category_char (Emchar ch, Lisp_Object table, 1613 check_category_char (Emchar ch, Lisp_Object table,
1614 unsigned int designator, unsigned int not) 1614 unsigned int designator, unsigned int not_p)
1615 { 1615 {
1616 REGISTER Lisp_Object temp; 1616 REGISTER Lisp_Object temp;
1617 Lisp_Char_Table *ctbl; 1617 Lisp_Char_Table *ctbl;
1618 #ifdef ERROR_CHECK_TYPECHECK 1618 #ifdef ERROR_CHECK_TYPECHECK
1619 if (NILP (Fcategory_table_p (table))) 1619 if (NILP (Fcategory_table_p (table)))
1620 signal_simple_error ("Expected category table", table); 1620 signal_simple_error ("Expected category table", table);
1621 #endif 1621 #endif
1622 ctbl = XCHAR_TABLE (table); 1622 ctbl = XCHAR_TABLE (table);
1623 temp = get_char_table (ch, ctbl); 1623 temp = get_char_table (ch, ctbl);
1624 if (NILP (temp)) 1624 if (NILP (temp))
1625 return not; 1625 return not_p;
1626 1626
1627 designator -= ' '; 1627 designator -= ' ';
1628 return bit_vector_bit (XBIT_VECTOR (temp), designator) ? !not : not; 1628 return bit_vector_bit (XBIT_VECTOR (temp), designator) ? !not_p : not_p;
1629 } 1629 }
1630 1630
1631 DEFUN ("check-category-at", Fcheck_category_at, 2, 4, 0, /* 1631 DEFUN ("check-category-at", Fcheck_category_at, 2, 4, 0, /*
1632 Return t if category of the character at POSITION includes DESIGNATOR. 1632 Return t if category of the character at POSITION includes DESIGNATOR.
1633 Optional third arg BUFFER specifies which buffer to use, and defaults 1633 Optional third arg BUFFER specifies which buffer to use, and defaults