187 |
|
|
188 |
(set-language-info-alist |
(set-language-info-alist |
189 |
"Chinese-GBK" '((charset chinese-gbk) |
"Chinese-GBK" '((charset chinese-gbk) |
190 |
(coding-system chinese-gbk) |
(coding-system chinese-gbk) |
191 |
(coding-priority gbk iso-2022-cn chinese-big5 |
(coding-priority gbk iso-2022-cn chinese-big5 |
192 |
chinese-iso-8bit) ; fixme? |
chinese-iso-8bit) ; fixme? |
193 |
(input-method . "chinese-py-punct") ; fixme? |
(input-method . "chinese-py-punct") ; fixme? |
194 |
(features china-util) |
(features china-util) |
195 |
(documentation . "Support for Chinese GBK character set.")) |
(documentation . "Support for Chinese GBK character set.")) |
196 |
'("Chinese")) |
'("Chinese")) |
197 |
|
|
198 |
;; Fixme: add HKSCS, GB18030 |
;;; Chinese GB18030 |
199 |
|
|
200 |
|
(define-coding-system 'chinese-gb18030 |
201 |
|
"GB18030 encoding for Chinese (MIME:GB18030)." |
202 |
|
:coding-type 'charset |
203 |
|
:mnemonic ?c |
204 |
|
:charset-list '(chinese-gb18030) |
205 |
|
:mime-charset 'gb18030 |
206 |
|
) |
207 |
|
(define-coding-system-alias 'gb18030 'chinese-gb18030) |
208 |
|
|
209 |
|
(set-language-info-alist |
210 |
|
"Chinese-GB18030" '((charset chinese-gb18030) |
211 |
|
(coding-system chinese-gb18030) |
212 |
|
(coding-priority gb18030 gbk iso-2022-cn chinese-big5 |
213 |
|
chinese-iso-8bit) ; fixme? |
214 |
|
(input-method . "chinese-py-punct") ; fixme? |
215 |
|
(features china-util) |
216 |
|
(documentation |
217 |
|
. "Support for Chinese GB18030 character set.")) |
218 |
|
'("Chinese")) |
219 |
|
|
220 |
|
;; Fixme: add HKSCS |
221 |
|
|
222 |
(provide 'chinese) |
(provide 'chinese) |
223 |
|
|