mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-01 11:14:55 +00:00
Code Issues Releases Activity

(CATEGORY_SET): Delete codes for a composite character.

Browse Source
This commit is contained in:
Kenichi Handa 1999-12-15 00:02:55 +00:00
parent 66da28809c
commit 759f98632f
1 changed files with 3 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/category.h
View File

@ -104,17 +104,11 @@ extern Lisp_Object _temp_category_set;
&& NILP (temp = XCHAR_TABLE (table)->defalt)) \
table = XCHAR_TABLE (table)->parent; \
else \
temp = Faref (table, \
make_number (COMPOSITE_CHAR_P (c) \
? cmpchar_component ((c), 0, 1) : (c))); \
temp = Faref (table, make_number (c)); \
temp; })
#else
#define CATEGORY_SET(c) \
((c) < CHAR_TABLE_SINGLE_BYTE_SLOTS \
? Faref (current_buffer->category_table, make_number ((unsigned char) c)) \
: Faref (current_buffer->category_table, \
make_number (COMPOSITE_CHAR_P (c) \
? cmpchar_component ((c), 0, 1) : (c))))
#define CATEGORY_SET(c) \
Faref (current_buffer->category_table, make_number (c))
#endif
/* Return the doc string of CATEGORY in category table TABLE. */