From: Kenichi Handa <handa@m17n.org>
Date: Sat, 16 Jun 2007 03:06:49 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Tag: emacs-pretest-23.0.90~8295^2~410
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c8e50a73474d95629df968cdec057356dec714a8;p=emacs.git

*** empty log message ***
---

diff --git a/lisp/language/tv-util.el b/lisp/language/tv-util.el
index 9407379e098..0323c9672a6 100644
--- a/lisp/language/tv-util.el
+++ b/lisp/language/tv-util.el
@@ -56,7 +56,8 @@
 	(compose-string string from (1+ from) (string ch ?\t)))
     (setq from (1+ from) prev-info info)
     (while (and (< from to)
-		(tai-viet-char-p (setq ch (aref string from))))
+		(>= #xaa80 (setq ch (aref string from)))
+		(<= #xaaDF ch))
       (setq info (aref tai-viet-glyph-info ch))
       (if (and (eq info 'non-spacing)
 	       (eq prev-info 'non-spacing))