# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 1023049946 0
# Node ID f3dce8f75e38e1c9ff4f0fc965d8875c69c8dee5
# Parent  059d379e7aee842f21d3ae7521a7fb146526f487
Add Vietnamese category to
equivalent unicodes.

diff -r 059d379e7aee -r f3dce8f75e38 lisp/international/characters.el
--- a/lisp/international/characters.el	Sun Jun 02 20:32:05 2002 +0000
+++ b/lisp/international/characters.el	Sun Jun 02 20:32:26 2002 +0000
@@ -283,7 +283,7 @@
 ;; Ethiopic character set
 
 (modify-category-entry '(#x1200 . #x137b) ?e)
-(let ((chars '(?���� ?���� ?���� ?���� ?���� ?���� ?���� ?���� ?���� ?���� ?���� ?���� ?���� ?����)))
+(let ((chars '(?፡ ?። ?፣ ?፤ ?፥ ?፦ ?፧ ?፨ ?���� ?���� ?���� ?���� ?���� ?����)))
   (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)