From 482a9df018798ae7b34c0a0b8e7bd601aa0b4bea Mon Sep 17 00:00:00 2001
From: Kenichi Handa <handa@m17n.org>
Date: Sun, 9 Dec 2007 12:39:55 +0000
Subject: [PATCH] (tai-viet-re): Include '-'. (tai-viet-glyph-info): Handle
 '-'.

---
 lisp/language/tv-util.el | 5 +++--
 1 file 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)
-- 
2.39.5