From 725d7c92144671fdc529c039eb14d591c8365576 Mon Sep 17 00:00:00 2001
From: Dave Love <fx@gnu.org>
Date: Sun, 2 Jun 2002 20:32:26 +0000
Subject: [PATCH] Add Vietnamese category to equivalent unicodes.

---
 lisp/international/characters.el | 49 +++++++++++++++++---------------
 1 file changed, 26 insertions(+), 23 deletions(-)

diff --git a/lisp/international/characters.el b/lisp/international/characters.el
index 513209b2752..155766f0a78 100644
--- 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 '(?ö …¡ ?ö …¢ ?ö …£ ?ö …¤ ?ö …¥ ?ö …¦ ?ö …§ ?ö …¨ ?ö ‡€ ?ö ‡‹ ?ö ‡Œ ?ö ‡ ?ö ‡Ž ?ö ‡)))
+(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)
-- 
2.39.5