Mercurial > emacs

changeset 88711:f3dce8f75e38

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add Vietnamese category to equivalent unicodes.
author Dave Love <fx@gnu.org>
date Sun, 02 Jun 2002 20:32:26 +0000
parents 059d379e7aee
children b231f1e25b4e
files lisp/international/characters.el
diffstat 1 files changed, 26 insertions(+), 23 deletions(-) [+]
line wrap: on
line diff
--- 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)