From: Kenichi Handa <handa@m17n.org>
Date: Tue, 14 Jul 2009 01:17:49 +0000 (+0000)
Subject: Fix setting of category ?C.
X-Git-Tag: emacs-pretest-23.1.90~2186
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=66a85e76e63d3bfda91d83a3b89d620516d9eabc;p=emacs.git

Fix setting of category ?C.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4135cca40e7..3ac3e55c9ec 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2009-07-14  Kenichi Handa  <handa@m17n.org>
+
+	* international/characters.el: Fix setting of category ?C.
+
 2009-07-13  Jan Djärv  <jan.h.d@swipnet.se>
 
 	* term/ns-win.el (x-select-font): defailias x-select-font to
diff --git a/lisp/international/characters.el b/lisp/international/characters.el
index a300f15df58..a89ce7d63d5 100644
--- a/lisp/international/characters.el
+++ b/lisp/international/characters.el
@@ -132,7 +132,8 @@ Combining diacritic or mark (Unicode General Category M)")
 ;; Chinese characters (Unicode)
 (modify-category-entry '(#x2E80 . #x312F) ?|)
 (modify-category-entry '(#x3190 . #x33FF) ?|)
-(modify-category-entry '(#x3400 . #x9FAF) ?C)
+(modify-category-entry '(#x3400 . #x4DBF) ?C)
+(modify-category-entry '(#x4E00 . #x9FAF) ?C)
 (modify-category-entry '(#x3400 . #x9FAF) ?c)
 (modify-category-entry '(#x3400 . #x9FAF) ?|)
 (modify-category-entry '(#xF900 . #xFAFF) ?C)
@@ -163,9 +164,9 @@ Combining diacritic or mark (Unicode General Category M)")
 ;; Chinese character set (BIG5)
 
 (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 #xA259 #xA261)
 (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 ?C #xC940 #xF9DC)
 
 ;; Chinese character set (CNS11643)
 
@@ -225,7 +226,7 @@ Combining diacritic or mark (Unicode General Category M)")
     (modify-category-entry (car chars) ?K)
     (modify-category-entry (car chars) ?H)
     (setq chars (cdr chars))))
-(let ((chars '(?ヽ ?ヾ ?ゝ ?ゞ ?〃 ?仝 ?々 ?〆 ?〇)))
+(let ((chars '(?仝 ?々 ?〆 ?〇)))
   (while chars
     (modify-category-entry (car chars) ?C)
     (setq chars (cdr chars))))