[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp/international characters.el
From: |
Kenichi Handa |
Subject: |
[Emacs-diffs] emacs/lisp/international characters.el |
Date: |
Tue, 14 Jul 2009 01:16:50 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Changes by: Kenichi Handa <handa> 09/07/14 01:16:50
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&r1=1.86&r2=1.87
Patches:
Index: characters.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/international/characters.el,v
retrieving revision 1.86
retrieving revision 1.87
diff -u -b -r1.86 -r1.87
--- characters.el 30 Jun 2009 01:51:08 -0000 1.86
+++ characters.el 14 Jul 2009 01:16:50 -0000 1.87
@@ -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))))
- [Emacs-diffs] emacs/lisp/international characters.el,
Kenichi Handa <=