# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 945216196 0
# Node ID dfead1ef574cd6290a0c30f057a50d0e3e9b7db9
# Parent  141799992598571a0130892af5d245f8f9eb6b05
(word_boundary_p): Delete codes for a composite
character.
(Fmake_category_table): New function.
(syms_of_category): Defsubr it.

diff -r 141799992598 -r dfead1ef574c src/category.c
--- 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);