Fix setting of category ?C.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4135cca40e7b0cbabebe96b378a816c6a60eff05..3ac3e55c9ecb13f07da4d460e54e0b55951c30eb 100644 (file)
--- 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 a300f15df580fbe8f084814b039f351b5808d99e..a89ce7d63d5efd853733535122d86230cacb460a 100644 (file)
--- 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))))