# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1258111042 0
# Node ID 0bc34ff12a2d288b3a5db4ead566665078337306
# Parent  cabe35654fc435752b6768f7934c3c541a4db46b
(word_boundary_p): Adjusted for the change of the
semantics of Vword_combining_categories.
(Vword_combining_categories): Describe the slight change of the
semantics.

diff -r cabe35654fc4 -r 0bc34ff12a2d src/category.c
--- a/src/category.c	Fri Nov 13 10:35:39 2009 +0000
+++ b/src/category.c	Fri Nov 13 11:17:22 2009 +0000
@@ -453,9 +453,11 @@
       if (CONSP (elt)
 	  && (NILP (XCAR (elt))
 	      || (CATEGORYP (XCAR (elt))
-		  && CATEGORY_MEMBER (XFASTINT (XCAR (elt)), category_set1)))
+		  && CATEGORY_MEMBER (XFASTINT (XCAR (elt)), category_set1)
+		  && ! CATEGORY_MEMBER (XFASTINT (XCAR (elt)), category_set2)))
 	  && (NILP (XCDR (elt))
 	      || (CATEGORYP (XCDR (elt))
+		  && ! CATEGORY_MEMBER (XFASTINT (XCDR (elt)), category_set1)
 		  && CATEGORY_MEMBER (XFASTINT (XCDR (elt)), category_set2))))
 	return !default_result;
     }
@@ -524,8 +526,9 @@
 if they have categories matching some element of this list.
 
 More precisely, if an element of this list is a cons of category CAT1
-and CAT2, and a multibyte character C1 which has CAT1 is followed by
-C2 which has CAT2, there's a word boundary between C1 and C2.
+and CAT2, and a multibyte character C1 which has CAT1 but not CAT2 is
+followed by C2 which has CAT2 but not CAT1, there's a word boundary
+between C1 and C2.
 
 For instance, to tell that there's a word boundary between Hiragana
 and Katakana (both are in the same script `kana'),