Add Vietnamese category to

equivalent unicodes.

diff --git a/lisp/international/characters.el b/lisp/international/characters.el
index 513209b27520c937a27872c50774df6eab15a1b2..155766f0a78270b8a2c260331d820e0d73a4a5ef 100644 (file)
--- a/lisp/international/characters.el
+++ b/lisp/international/characters.el
@@ -283,7 +283,7 @@
 ;; Ethiopic character set
 
 (modify-category-entry '(#x1200 . #x137b) ?e)
-(let ((chars '(?ö \85¡ ?ö \85¢ ?ö \85£ ?ö \85¤ ?ö \85¥ ?ö \85¦ ?ö \85§ ?ö \85¨ ?ö \87\80 ?ö \87\8b ?ö \87\8c ?ö \87\8d ?ö \87\8e ?ö \87\8f)))
+(let ((chars '(?á\8d¡ ?á\8d¢ ?á\8d£ ?á\8d¤ ?á\8d¥ ?á\8d¦ ?á\8d§ ?á\8d¨ ?ö \87\80 ?ö \87\8b ?ö \87\8c ?ö \87\8d ?ö \87\8e ?ö \87\8f)))
   (while chars
     (modify-syntax-entry (car chars) ".")
     (setq chars (cdr chars))))
@@ -384,12 +384,12 @@
 ;;; and word syntax is the default.
 ;; (let ((deflist                              ;
 ;;     '(;; chars      syntax  category
-;;       ("������������"       "w"     ?7) ; vowel-modifying diacritical mark
+;;       ("ँंः"  "w"     ?7) ; vowel-modifying diacritical mark
 ;;                                 ; chandrabindu, anuswar, visarga
-;;       ("����-����"  "w"     ?1) ; base (independent) vowel
-;;       ("����-����"  "w"     ?0) ; consonant
-;;       ("����-����"  "w"     ?8) ; matra
-;;       ("����-����"  "w"     ?6) ; digit
+;;       ("अ-ऍ"    "w"     ?1) ; base (independent) vowel
+;;       ("क-ह"    "w"     ?0) ; consonant
+;;       ("ा-ॉ"    "w"     ?8) ; matra
+;;       ("०-९"    "w"     ?6) ; digit
 ;;       ))
 ;;       elm chars len syntax category to ch i)
 ;;   (while deflist
@@ -641,20 +641,20 @@
 (map-charset-chars #'modify-category-entry 'tibetan-1-column ?q)
 
 (let ((deflist '(;; chars             syntax category
-                 ("����-��������"              "w"     ?0) ; consonant
-                 ("����-������������������������"       "w"     ?0) ;
+                 ("ཀ-ཀྵཪ"         "w"     ?0) ; consonant
+                 ("ྐ-ྐྵྺྻྼ��������"       "w"     ?0) ;
                  ("����-����"              "w"     ?0) ;
                  ("����-����"              "w"     ?0) ;
-                 ("������������������������"       "w" ?2) ; upper vowel
-                 ("������������������������������������" "w"   ?2) ; upper modifier
-                 ("����������������������������"       "w"     ?3) ; lowel vowel/modifier
-                 ("����-��������-����"         "w"     ?6) ; digit
-                 ("��������-������������"        "."     ?|) ; line-break char
-                 ("����������������������������"            "."     ?|) ;
-                 ("������������-��������������������"  "."     ?>) ; prohibition
-                 ("����������������������������"            "."     ?>) ;
-                 ("����-��������������������"      "."     ?<) ; prohibition
-                 ("��������-��������-������������-��������������������-����" "." ?q) ; others
+                 ("ིེཻོཽྀ"       "w"       ?2) ; upper vowel
+                 ("ཾྂྃ྆྇ྈྉྊྋ" "w"    ?2) ; upper modifier
+                 ("༙����྄ཱུ༵༷"       "w"   ?3) ; lowel vowel/modifier
+                 ("༠-༩༪-༳"             "w"     ?6) ; digit
+                 ("་།-༒༔ཿ"        "."     ?|) ; line-break char
+                 ("་།༏༐༑༔ཿ"            "."     ?|) ;
+                 ("༈་།-༒༔ཿ༽༴"  "."     ?>) ; prohibition
+                 ("་།༏༐༑༔ཿ"            "."     ?>) ;
+                 ("ༀ-༊༼࿁࿂྅"      "."     ?<) ; prohibition
+                 ("༓༕-༘༚-༟༶༸-༻༾༿྾྿-࿏" "." ?q) ; others
                  ))
       elm chars len syntax category to ch i)
   (while deflist
@@ -686,15 +686,18 @@
 
 (map-charset-chars #'modify-category-entry 'vietnamese-viscii-upper ?l)
 (map-charset-chars #'modify-category-entry 'vietnamese-viscii-upper ?v)
-;; Fixme Unicode versions of Vietnamese categeory.
 
 (let ((tbl (standard-case-table))
       (i 32))
   (while (< i 128)
-    (let ((char (decode-char 'vietnamese-viscii-upper i)))
-      (if char
-         (set-case-syntax-pair char (decode-char 'vietnamese-viscii-lower i)
-                               tbl)))
+    (let* ((char (decode-char 'vietnamese-viscii-upper i))
+          (charl (decode-char 'vietnamese-viscii-lower i))
+          (uc (encode-char char 'ucs))
+          (lc (encode-char charl 'ucs)))
+      (set-case-syntax-pair char (decode-char 'vietnamese-viscii-lower i)
+                           tbl)        
+      (if uc (modify-category-entry uc ?v))
+      (if lc (modify-category-entry lc ?v)))
     (setq i (1+ i))))
 
 ;; Unicode (mule-unicode-0100-24ff)