*** empty log message ***

diff --git a/lisp/language/tv-util.el b/lisp/language/tv-util.el
index 9407379..0323c96 100644 (file)
--- 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))