Mercurial > emacs
changeset 26841:dfead1ef574c
(word_boundary_p): Delete codes for a composite
character.
(Fmake_category_table): New function.
(syms_of_category): Defsubr it.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Wed, 15 Dec 1999 00:03:16 +0000 |
| parents | 141799992598 |
| children | c86c075880e5 |
| files | src/category.c |
| diffstat | 1 files changed, 15 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/src/category.c Wed Dec 15 00:02:55 1999 +0000 +++ b/src/category.c Wed Dec 15 00:03:16 1999 +0000 @@ -253,6 +253,20 @@ return copy_category_table (table); } +DEFUN ("make-category-table", Fmake_category_table, Smake_category_table, + 0, 0, 0, + "Construct a new and empty category table and return it.") + () +{ + Lisp_Object val; + + val = Fmake_char_table (Qcategory_table, Qnil); + XCHAR_TABLE (val)->defalt = MAKE_CATEGORY_SET; + Fset_char_table_extra_slot (val, make_number (0), + Fmake_vector (make_number (95), Qnil)); + return val; +} + DEFUN ("set-category-table", Fset_category_table, Sset_category_table, 1, 1, 0, "Specify TABLE as the category table for the current buffer.") (table) @@ -567,11 +581,6 @@ Lisp_Object tail; int default_result; - if (COMPOSITE_CHAR_P (c1)) - c1 = cmpchar_component (c1, 0, 1); - if (COMPOSITE_CHAR_P (c2)) - c2 = cmpchar_component (c2, 0, 1); - if (CHAR_CHARSET (c1) == CHAR_CHARSET (c2)) { tail = Vword_separating_categories; @@ -689,6 +698,7 @@ defsubr (&Scategory_table); defsubr (&Sstandard_category_table); defsubr (&Scopy_category_table); + defsubr (&Smake_category_table); defsubr (&Sset_category_table); defsubr (&Schar_category_set); defsubr (&Scategory_set_mnemonics);