Fix setting of category ?C.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5b8be873569b131a1667ee3849e62c5535cd03ac..2ce7e554f65e263a04e725bf154c8d1c338f825d 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-12  Guanpeng Xu  <herberteuler@hotmail.com>
 
        * pcomplete.el (pcomplete-comint-setup): Check for

diff --git a/lisp/international/characters.el b/lisp/international/characters.el
index 7b694b197591bf238941e09df8d87605264b5935..a7a42496141bd98d05ffcb7a74c0be370af888b8 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))))