mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-05 03:20:39 -08:00
Code Issues Projects Releases Wiki Activity

Fix setting of category ?C.

Browse source
This commit is contained in:
Kenichi Handa 2009-07-14 01:17:49 +00:00
parent b604615531
commit 66a85e76e6
2 changed files with 9 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -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

9
lisp/international/characters.el
View file

@ -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))))