[Emacs-diffs] emacs/lisp/international characters.el [EMACS_23_1_RC]

[Kenichi Handa]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Branch:         EMACS_23_1_RC
Changes by:     Kenichi Handa <handa>   09/07/14 01:15:16

Modified files:
        lisp/international: characters.el 

Log message:
        Fix setting of category ?C.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/international/characters.el?cvsroot=emacs&only_with_tag=EMACS_23_1_RC&r1=1.85&r2=1.85.2.1

Patches:
Index: characters.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/international/characters.el,v
retrieving revision 1.85
retrieving revision 1.85.2.1
diff -u -b -r1.85 -r1.85.2.1
--- characters.el       17 Mar 2009 07:14:45 -0000      1.85
+++ characters.el       14 Jul 2009 01:15:16 -0000      1.85.2.1
@@ -132,7 +132,8 @@
 ;; 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 @@
 ;; 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 @@
     (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))))