diff options
| author | Kenichi Handa <handa@m17n.org> | 2007-12-09 12:39:55 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 2007-12-09 12:39:55 +0000 |
| commit | 482a9df018798ae7b34c0a0b8e7bd601aa0b4bea (patch) | |
| tree | 98406e94a574a4671f3a73c93452710f1927ee2e /lisp/language/tv-util.el | |
| parent | b2c6a4798fe4c0d92dacadb0d34d6123acf2a532 (diff) | |
| download | emacs-482a9df018798ae7b34c0a0b8e7bd601aa0b4bea.tar.gz emacs-482a9df018798ae7b34c0a0b8e7bd601aa0b4bea.tar.bz2 emacs-482a9df018798ae7b34c0a0b8e7bd601aa0b4bea.zip | |
(tai-viet-re): Include '-'.
(tai-viet-glyph-info): Handle '-'.
Diffstat (limited to 'lisp/language/tv-util.el')
| -rw-r--r-- | lisp/language/tv-util.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/language/tv-util.el b/lisp/language/tv-util.el index b8a33fac3e0..c7e8f8da97e 100644 --- a/lisp/language/tv-util.el +++ b/lisp/language/tv-util.el @@ -27,7 +27,7 @@ ;; Regexp matching with a sequence of Tai Viet characters. (defconst tai-viet-re - (format "[\xaa80-\xaac2\xaadb-\xaadf]+")) + (format "[\xaa80-\xaac2\xaadb-\xaadf-]+")) ;; Char-table of information about glyph type of Tai Viet characters. (defconst tai-viet-glyph-info @@ -35,7 +35,8 @@ (specials '((right-overhang . "ꪊꪋꪌꪍꪏꪓꪖꪜꪞꪡꪤꪨ") (left-overhang . "ꫂ") (combining-vowel . "ꪴꪰꪲꪳꪷꪸꪾ") - (combining-tone . "꪿꫁")))) + (combining-tone . "꪿꫁") + (misc . "-")))) ;; Set all TaiViet characters to `t'. (set-char-table-range table (cons #xaa80 #xaac2) t) (set-char-table-range table (cons #xaadb #xaadf) t) |