# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 911879528 0
# Node ID 63628f8fe64873209d4fdb382caa362d3e94d643
# Parent  53a4f2e0fccc034a86f1f6f9f3073723d0a04e6d
(word_boundary_p): If C1 or C2 are composite
characters, test their first components.

diff -r 53a4f2e0fccc -r 63628f8fe648 src/category.c
--- a/src/category.c	Mon Nov 23 15:15:09 1998 +0000
+++ b/src/category.c	Tue Nov 24 03:52:08 1998 +0000
@@ -568,6 +568,11 @@
   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;