From: Kenichi Handa <handa@m17n.org>
Date: Mon, 19 Aug 2002 12:13:45 +0000 (+0000)
Subject: Fix categories ?A and ?C.
X-Git-Tag: emacs-pretest-23.0.90~8295^2~1864^2~424
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9ad4b4919bdb16ab85139335831b285111ff5763;p=emacs.git

Fix categories ?A and ?C.
---

diff --git a/lisp/international/characters.el b/lisp/international/characters.el
index b4187225fe5..a385a83aa00 100644
--- a/lisp/international/characters.el
+++ b/lisp/international/characters.el
@@ -148,7 +148,9 @@
 
 (map-charset-chars #'modify-category-entry 'chinese-gb2312 ?c)
 (map-charset-chars #'modify-category-entry 'chinese-gb2312 ?|)
-(map-charset-chars #'modify-category-entry 'chinese-gb2312 ?A #x2321 #x237E)
+(map-charset-chars #'modify-category-entry 'chinese-gb2312 ?A #x2330 #x2339)
+(map-charset-chars #'modify-category-entry 'chinese-gb2312 ?A #x2341 #x235A)
+(map-charset-chars #'modify-category-entry 'chinese-gb2312 ?A #x2361 #x237A)
 (map-charset-chars #'modify-category-entry 'chinese-gb2312 ?H #x2421 #x247E)
 (map-charset-chars #'modify-category-entry 'chinese-gb2312 ?K #x2521 #x257E)
 (map-charset-chars #'modify-category-entry 'chinese-gb2312 ?G #x2621 #x267E)
@@ -158,7 +160,9 @@
 ;; Chinese character set (BIG5)
 
 (map-charset-chars #'modify-category-entry 'big5 ?c)
-(map-charset-chars #'modify-category-entry 'big5 ?C)
+(map-charset-chars #'modify-category-entry 'big5 ?C #xA259 #xA25F)
+(map-charset-chars #'modify-category-entry 'big5 ?C #xA440 #xC67E)
+(map-charset-chars #'modify-category-entry 'big5 ?C #xC940 #xF9DF)
 (map-charset-chars #'modify-category-entry 'big5 ?|)
 
 
@@ -168,7 +172,9 @@
 	     chinese-cns11643-4 chinese-cns11643-5 chinese-cns11643-6
 	     chinese-cns11643-7))
   (map-charset-chars #'modify-category-entry c ?c)
-  (map-charset-chars #'modify-category-entry c ?C)
+  (if (eq c 'chinese-cns11643-1)
+      (map-charset-chars #'modify-category-entry c ?C #x4421 #x7E7E)
+    (map-charset-chars #'modify-category-entry c ?C))
   (map-charset-chars #'modify-category-entry c ?|))
 
 ;; Cyrillic character set (ISO-8859-5)
@@ -368,7 +374,9 @@
 
 (map-charset-chars #'modify-syntax-entry 'korean-ksc5601 "_" #x2121 #x227E)
 (map-charset-chars #'modify-syntax-entry 'korean-ksc5601 "_" #x2621 #x297E)
-(map-charset-chars #'modify-category-entry 'korean-ksc5601 ?A #x2321 #x237E)
+(map-charset-chars #'modify-category-entry 'korean-ksc5601 ?A #x2330 #x2339)
+(map-charset-chars #'modify-category-entry 'korean-ksc5601 ?A #x2341 #x235A)
+(map-charset-chars #'modify-category-entry 'korean-ksc5601 ?A #x2361 #x237A)
 (map-charset-chars #'modify-category-entry 'korean-ksc5601 ?G #x2521 #x257E)
 (map-charset-chars #'modify-category-entry 'korean-ksc5601 ?H #x2A21 #x2A7E)
 (map-charset-chars #'modify-category-entry 'korean-ksc5601 ?K #x2B21 #x2B7E)