From: Kenichi Handa <handa@m17n.org>
Date: Wed, 22 Oct 2008 05:31:05 +0000 (+0000)
Subject: (scan_words): Call word_boundary_p instead of comparing
X-Git-Tag: emacs-pretest-23.0.90~2276
X-Git-Url: https://code.delx.au/gnu-emacs/commitdiff_plain/2b70a11c5564c26a0f22f716f40a67e621170665?hp=4626499f4fd3b6de6c61a3dc240b88e143a70ecb

(scan_words): Call word_boundary_p instead of comparing
scripts.
---

diff --git a/src/syntax.c b/src/syntax.c
index eae8f360fe..8dea32b911 100644
--- a/src/syntax.c
+++ b/src/syntax.c
@@ -1248,7 +1248,7 @@ scan_words (from, count)
 	      if ((code != Sword
 		   && (! words_include_escapes
 		       || (code != Sescape && code != Scharquote)))
-		  || ! EQ (CHAR_TABLE_REF (Vchar_script_table, ch1), script))
+		  || word_boundary_p (ch0, ch1))
 		break;
 	      INC_BOTH (from, from_byte);
 	      ch0 = ch1;
@@ -1301,7 +1301,7 @@ scan_words (from, count)
 	      if ((code != Sword
 		   && (! words_include_escapes
 		       || (code != Sescape && code != Scharquote)))
-		  || ! EQ (CHAR_TABLE_REF (Vchar_script_table, ch0), script))
+		  || word_boundary_p (ch0, ch1))
 		{
 		  INC_BOTH (from, from_byte);
 		  break;