diff options
| -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 @@ | |||
| 56 | (compose-string string from (1+ from) (string ch ?\t))) | 56 | (compose-string string from (1+ from) (string ch ?\t))) |
| 57 | (setq from (1+ from) prev-info info) | 57 | (setq from (1+ from) prev-info info) |
| 58 | (while (and (< from to) | 58 | (while (and (< from to) |
| 59 | (tai-viet-char-p (setq ch (aref string from)))) | 59 | (>= #xaa80 (setq ch (aref string from))) |
| 60 | (<= #xaaDF ch)) | ||
| 60 | (setq info (aref tai-viet-glyph-info ch)) | 61 | (setq info (aref tai-viet-glyph-info ch)) |
| 61 | (if (and (eq info 'non-spacing) | 62 | (if (and (eq info 'non-spacing) |
| 62 | (eq prev-info 'non-spacing)) | 63 | (eq prev-info 'non-spacing)) |