Mercurial > hg > xemacs-beta

comparison src/chartab.c @ 207:e45d5e7c476e r20-4b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-4b2
author cvs
date Mon, 13 Aug 2007 10:03:52 +0200
parents 850242ba4a81
children 83b3d10dcba9
comparison
equal deleted inserted replaced
206:d3e9274cbc4e 207:e45d5e7c476e
1619 unsigned int des; 1619 unsigned int des;
1620 struct buffer *buf = decode_buffer (buffer, 0); 1620 struct buffer *buf = decode_buffer (buffer, 0);
1621 1621
1622 CHECK_INT (pos); 1622 CHECK_INT (pos);
1623 CHECK_CATEGORY_DESIGNATOR (designator); 1623 CHECK_CATEGORY_DESIGNATOR (designator);
1624 des = XREALINT (designator); 1624 des = XCHAR (designator);
1625 ctbl = check_category_table (category_table, Vstandard_category_table); 1625 ctbl = check_category_table (category_table, Vstandard_category_table);
1626 ch = BUF_FETCH_CHAR (buf, XINT (pos)); 1626 ch = BUF_FETCH_CHAR (buf, XINT (pos));
1627 return check_category_char (ch, ctbl, des, 0) ? Qt : Qnil; 1627 return check_category_char (ch, ctbl, des, 0) ? Qt : Qnil;
1628 } 1628 }
1629 1629
1637 Lisp_Object ctbl; 1637 Lisp_Object ctbl;
1638 Emchar ch; 1638 Emchar ch;
1639 unsigned int des; 1639 unsigned int des;
1640 1640
1641 CHECK_CATEGORY_DESIGNATOR (designator); 1641 CHECK_CATEGORY_DESIGNATOR (designator);
1642 des = XREALINT (designator); 1642 des = XCHAR (designator);
1643 CHECK_CHAR (chr); 1643 CHECK_CHAR (chr);
1644 ch = XCHAR (chr); 1644 ch = XCHAR (chr);
1645 ctbl = check_category_table (category_table, Vstandard_category_table); 1645 ctbl = check_category_table (category_table, Vstandard_category_table);
1646 return check_category_char (ch, ctbl, des, 0) ? Qt : Qnil; 1646 return check_category_char (ch, ctbl, des, 0) ? Qt : Qnil;
1647 } 1647 }