diff options
| author | Kenichi Handa <handa@m17n.org> | 2007-06-16 03:06:49 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 2007-06-16 03:06:49 +0000 |
| commit | c8e50a73474d95629df968cdec057356dec714a8 (patch) | |
| tree | b3e86397cc6b7aa4ac9cfc415d018ea83d451a8d /lisp/language/tv-util.el | |
| parent | e25d306ce8d480d8ad08056860f4c9fdb22815f8 (diff) | |
| download | emacs-c8e50a73474d95629df968cdec057356dec714a8.tar.gz | |
*** empty log message ***
Diffstat (limited to 'lisp/language/tv-util.el')
| -rw-r--r-- | lisp/language/tv-util.el | 3 |
1 files changed, 2 insertions, 1 deletions
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)) |