Setup syntax/category table for Tai Viet.

(script-list): Add tai-viet.

1 files changed, 25 insertions, 1 deletions

diff --git a/lisp/international/characters.el b/lisp/international/characters.el
index f19c331e5cf..bf3f4a9a248 100644
--- a/lisp/international/characters.el
+++ b/lisp/international/characters.el
@@ -72,7 +72,7 @@
 (define-category ?1 "base (independent) vowel")
 (define-category ?2 "upper diacritical mark (including upper vowel)")
 (define-category ?3 "lower diacritical mark (including lower vowel)")
-(define-category ?4 "tone mark")
+(define-category ?4 "combining tone mark")
 (define-category ?5 "symbol")
 (define-category ?6 "digit")
 (define-category ?7 "vowel-modifying diacritical mark")
@@ -427,6 +427,29 @@
       (if lc (modify-category-entry lc ?v)))
     (setq i (1+ i))))
 
+;; Tai Viet
+(let ((deflist '(;; chars       syntax  category
+                 ((?ꪀ.  ?ꪯ) "w"     ?0) ; cosonant
+                 ("ꪱꪵꪶ"           "w"     ?1) ; vowel base
+                 ((?ꪹ . ?ꪽ) "w"     ?1) ; vowel base
+                 ("ꪰꪲꪳꪷꪸꪾ"  "w"     ?2) ; vowel upper
+                 ("ꪴ"         "w"     ?3) ; vowel lower
+                 ("ꫀꫂ"              "w"     ?1) ; non-combining tone-mark
+                 ("꪿꫁"              "w"     ?4) ; combining tone-mark
+                 ((?ꫛ . ?꫟) "_"     ?5) ; symbol
+                 )))
+  (dolist (elm deflist)
+    (let ((chars (car elm))
+          (syntax (nth 1 elm))
+          (category (nth 2 elm)))
+      (if (consp chars)
+          (progn
+            (modify-syntax-entry chars syntax)
+            (modify-category-entry chars category))
+        (mapc #'(lambda (x)
+                  (modify-syntax-entry x syntax)
+                  (modify-category-entry x category))
+              chars)))))
 
 ;; Latin
 
@@ -1043,6 +1066,7 @@
          (#x31A0 #x31BF bopomofo)
          (#x3400 #x9FAF han)
          (#xA000 #xA4CF yi)
+         (#xAA80 #xAADF tai-viet)
          (#xAC00 #xD7AF hangul)
          (#xF900 #xFAFF han)
          (#xFB1D #xFB4F hebrew)