(tai-viet-re): Include '-'.

(tai-viet-glyph-info): Handle '-'.

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)