Mercurial > emacs

changeset 90949:bba587c2b334

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Kenichi Handa <handa@m17n.org>
date Sat, 16 Jun 2007 03:06:49 +0000
parents e934ce2db665
children 8568c29985a3
files lisp/language/tv-util.el
diffstat 1 files changed, 2 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/language/tv-util.el	Sat Jun 16 02:17:47 2007 +0000
+++ b/lisp/language/tv-util.el	Sat Jun 16 03:06:49 2007 +0000
@@ -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))