procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix definition of CNS 11643-15 charset

Browse source 
* lisp/international/mule-conf.el (chinese-cns11643-15): Fix
:code-offset value.  (Bug#60275)
* lisp/international/characters.el: Add chinese-cns11643-15 to
charsets whose characters have categories c and C.
This commit is contained in:
Eli Zaretskii 2022-12-24 12:08:43 +02:00
parent a42b20dd95
commit a825aa0b13
2 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/international/characters.el
View file

@ -184,7 +184,7 @@ with L, LRE, or LRO Unicode bidi character type.")
(dolist (c '(chinese-cns11643-1 chinese-cns11643-2 chinese-cns11643-3 (dolist (c '(chinese-cns11643-1 chinese-cns11643-2 chinese-cns11643-3
chinese-cns11643-4 chinese-cns11643-5 chinese-cns11643-6 chinese-cns11643-4 chinese-cns11643-5 chinese-cns11643-6
chinese-cns11643-7)) chinese-cns11643-7 chinese-cns11643-15))
(map-charset-chars #'modify-category-entry c ?c) (map-charset-chars #'modify-category-entry c ?c)
(if (eq c 'chinese-cns11643-1) (if (eq c 'chinese-cns11643-1)
(map-charset-chars #'modify-category-entry c ?C #x4421 #x7E7E) (map-charset-chars #'modify-category-entry c ?C #x4421 #x7E7E)

2
lisp/international/mule-conf.el
View file

@ -1268,7 +1268,7 @@
:short-name "CNS11643-15" :short-name "CNS11643-15"
:long-name "CNS11643-15 (Chinese traditional)" :long-name "CNS11643-15 (Chinese traditional)"
:code-space [33 126 33 126] :code-space [33 126 33 126]
:code-offset #x27A000 :code-offset #x28083A ; Right after 'big5-hkscs.
:unify-map "CNS-F") :unify-map "CNS-F")
(unify-charset 'chinese-gb2312) (unify-charset 'chinese-gb2312)