From 66a85e76e63d3bfda91d83a3b89d620516d9eabc Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Tue, 14 Jul 2009 01:17:49 +0000 Subject: [PATCH] Fix setting of category ?C. --- lisp/ChangeLog | 4 ++++ lisp/international/characters.el | 9 +++++---- 2 files changed, 9 insertions(+), 4 deletions(-) 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 + + * international/characters.el: Fix setting of category ?C. + 2009-07-13 Jan Djärv * 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)))) -- 2.39.2