Mercurial > emacs

changeset 91217:9cf3b1c148b9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(tai-viet-re): Include '-'. (tai-viet-glyph-info): Handle '-'.
author Kenichi Handa <handa@m17n.org>
date Sun, 09 Dec 2007 12:39:55 +0000
parents 79d9f396e42f
children ebe3cc401e0b
files lisp/language/tv-util.el
diffstat 1 files changed, 3 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/language/tv-util.el	Sun Dec 09 12:38:35 2007 +0000
+++ b/lisp/language/tv-util.el	Sun Dec 09 12:39:55 2007 +0000
@@ -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)