Mercurial > emacs
annotate lisp/language/chinese.el @ 92068:dd458038bf78
New file.
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Fri, 22 Feb 2008 01:51:04 +0000 |
parents | 606f2d163a64 |
children | 1e3a407766b9 |
rev | line source |
---|---|
38414
67b464da13ec
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
35509
diff
changeset
|
1 ;;; chinese.el --- support for Chinese -*- coding: iso-2022-7bit; -*- |
17052 | 2 |
79711 | 3 ;; Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008 |
74544 | 4 ;; Free Software Foundation, Inc. |
74605
6ee41fdd69ff
Update AIST copyright years.
Kenichi Handa <handa@m17n.org>
parents:
74544
diff
changeset
|
5 ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, |
79711 | 6 ;; 2005, 2006, 2007, 2008 |
62396 | 7 ;; National Institute of Advanced Industrial Science and Technology (AIST) |
8 ;; Registration Number H14PRO021 | |
89483 | 9 ;; Copyright (C) 2003 |
10 ;; National Institute of Advanced Industrial Science and Technology (AIST) | |
11 ;; Registration Number H13PRO009 | |
17052 | 12 |
13 ;; Keywords: multilingual, Chinese | |
14 | |
15 ;; This file is part of GNU Emacs. | |
16 | |
17 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
18 ;; it under the terms of the GNU General Public License as published by | |
78309
0938de05f510
Restore comma mistakenly removed in last change.
Glenn Morris <rgm@gnu.org>
parents:
78300
diff
changeset
|
19 ;; the Free Software Foundation; either version 3, or (at your option) |
17052 | 20 ;; any later version. |
21 | |
22 ;; GNU Emacs is distributed in the hope that it will be useful, | |
23 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
24 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
25 ;; GNU General Public License for more details. | |
26 | |
27 ;; You should have received a copy of the GNU General Public License | |
17071 | 28 ;; along with GNU Emacs; see the file COPYING. If not, write to the |
64085 | 29 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, |
30 ;; Boston, MA 02110-1301, USA. | |
17052 | 31 |
32 ;;; Commentary: | |
33 | |
34 ;; For Chinese, three character sets GB2312, BIG5, and CNS11643 are | |
35 ;; supported. | |
36 | |
37 ;;; Code: | |
38 | |
39 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
40 ;;; Chinese (general) | |
41 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
42 | |
89483 | 43 |
88414
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42150
diff
changeset
|
44 (define-coding-system 'iso-2022-cn |
89483 | 45 "ISO 2022 based 7bit encoding for Chinese GB and CNS (MIME:ISO-2022-CN)." |
46 :coding-type 'iso-2022 | |
47 :mnemonic ?C | |
48 :charset-list '(ascii chinese-gb2312 chinese-cns11643-1 chinese-cns11643-2) | |
49 :designation [ascii | |
50 (nil chinese-gb2312 chinese-cns11643-1) | |
51 (nil chinese-cns11643-2) | |
52 nil] | |
53 :flags '(ascii-at-eol ascii-at-cntl 7-bit | |
54 designation locking-shift single-shift init-at-bol) | |
90211
efcbeb957a31
(iso-2022-cn, iso-2022-cn-ext): Set
Kenichi Handa <handa@m17n.org>
parents:
90200
diff
changeset
|
55 :mime-charset 'iso-2022-cn |
efcbeb957a31
(iso-2022-cn, iso-2022-cn-ext): Set
Kenichi Handa <handa@m17n.org>
parents:
90200
diff
changeset
|
56 :suitable-for-keyboard t) |
20746 | 57 |
58 (define-coding-system-alias 'chinese-iso-7bit 'iso-2022-cn) | |
59 | |
88414
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42150
diff
changeset
|
60 (define-coding-system 'iso-2022-cn-ext |
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42150
diff
changeset
|
61 "ISO 2022 based 7bit encoding for Chinese GB and CNS (MIME:ISO-2022-CN-EXT)." |
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42150
diff
changeset
|
62 :coding-type 'iso-2022 |
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42150
diff
changeset
|
63 :mnemonic ?C |
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42150
diff
changeset
|
64 :charset-list '(ascii |
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42150
diff
changeset
|
65 chinese-gb2312 chinese-cns11643-1 |
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42150
diff
changeset
|
66 chinese-cns11643-2 chinese-cns11643-3 chinese-cns11643-4 |
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42150
diff
changeset
|
67 chinese-cns11643-5 chinese-cns11643-6 chinese-cns11643-7) |
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42150
diff
changeset
|
68 :designation '[ascii |
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42150
diff
changeset
|
69 (nil chinese-gb2312 chinese-cns11643-1) |
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42150
diff
changeset
|
70 (nil chinese-cns11643-2) |
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42150
diff
changeset
|
71 (nil chinese-cns11643-3 chinese-cns11643-4 chinese-cns11643-5 |
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42150
diff
changeset
|
72 chinese-cns11643-6 chinese-cns11643-7)] |
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42150
diff
changeset
|
73 :flags '(ascii-at-eol ascii-at-cntl 7-bit |
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42150
diff
changeset
|
74 designation locking-shift single-shift init-at-bol) |
90211
efcbeb957a31
(iso-2022-cn, iso-2022-cn-ext): Set
Kenichi Handa <handa@m17n.org>
parents:
90200
diff
changeset
|
75 :mime-charset 'iso-2022-cn-ext |
efcbeb957a31
(iso-2022-cn, iso-2022-cn-ext): Set
Kenichi Handa <handa@m17n.org>
parents:
90200
diff
changeset
|
76 :suitable-for-keyboard t) |
17084
07f0a1e07d1e
Add INIT-BOL to coding system iso-2022-cn.
Kenichi Handa <handa@m17n.org>
parents:
17071
diff
changeset
|
77 |
17993
73869115ae0a
Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents:
17841
diff
changeset
|
78 |
17052 | 79 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
49084
diff
changeset
|
80 ;;; Chinese GB2312 (simplified) |
17052 | 81 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
82 | |
88414
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42150
diff
changeset
|
83 (define-coding-system 'chinese-iso-8bit |
90186
e9f24fd6c07a
(chinese-iso-8bit): Fix mime-charset of chiense-iso-8bit.
Kenichi Handa <handa@m17n.org>
parents:
90182
diff
changeset
|
84 "ISO 2022 based EUC encoding for Chinese GB2312 (MIME:GB2312)." |
88414
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42150
diff
changeset
|
85 :coding-type 'iso-2022 |
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42150
diff
changeset
|
86 :mnemonic ?c |
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42150
diff
changeset
|
87 :charset-list '(ascii chinese-gb2312) |
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42150
diff
changeset
|
88 :designation [ascii chinese-gb2312 nil nil] |
90186
e9f24fd6c07a
(chinese-iso-8bit): Fix mime-charset of chiense-iso-8bit.
Kenichi Handa <handa@m17n.org>
parents:
90182
diff
changeset
|
89 :mime-charset 'gb2312) |
17052 | 90 |
18520
383d11185239
Swap args to define-coding-system-alias.
Richard M. Stallman <rms@gnu.org>
parents:
18377
diff
changeset
|
91 (define-coding-system-alias 'cn-gb-2312 'chinese-iso-8bit) |
383d11185239
Swap args to define-coding-system-alias.
Richard M. Stallman <rms@gnu.org>
parents:
18377
diff
changeset
|
92 (define-coding-system-alias 'euc-china 'chinese-iso-8bit) |
20158
36eb3e583396
Give proper SAFE-CHARSET argument in each
Kenichi Handa <handa@m17n.org>
parents:
20109
diff
changeset
|
93 (define-coding-system-alias 'euc-cn 'chinese-iso-8bit) |
34195
c43ab8c93b07
(chinese-iso-8bit): Change mime-charset name to cn-gb.
Kenichi Handa <handa@m17n.org>
parents:
33778
diff
changeset
|
94 (define-coding-system-alias 'cn-gb 'chinese-iso-8bit) |
c43ab8c93b07
(chinese-iso-8bit): Change mime-charset name to cn-gb.
Kenichi Handa <handa@m17n.org>
parents:
33778
diff
changeset
|
95 (define-coding-system-alias 'gb2312 'chinese-iso-8bit) |
17084
07f0a1e07d1e
Add INIT-BOL to coding system iso-2022-cn.
Kenichi Handa <handa@m17n.org>
parents:
17071
diff
changeset
|
96 |
88414
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42150
diff
changeset
|
97 (define-coding-system 'chinese-hz |
89483 | 98 "Hz/ZW 7-bit encoding for Chinese GB2312 (MIME:HZ-GB-2312)." |
99 :coding-type 'utf-8 | |
100 :mnemonic ?z | |
101 :charset-list '(ascii chinese-gb2312) | |
102 :mime-charset 'hz-gb-2312 | |
103 :post-read-conversion 'post-read-decode-hz | |
104 :pre-write-conversion 'pre-write-encode-hz) | |
17084
07f0a1e07d1e
Add INIT-BOL to coding system iso-2022-cn.
Kenichi Handa <handa@m17n.org>
parents:
17071
diff
changeset
|
105 |
18520
383d11185239
Swap args to define-coding-system-alias.
Richard M. Stallman <rms@gnu.org>
parents:
18377
diff
changeset
|
106 (define-coding-system-alias 'hz-gb-2312 'chinese-hz) |
383d11185239
Swap args to define-coding-system-alias.
Richard M. Stallman <rms@gnu.org>
parents:
18377
diff
changeset
|
107 (define-coding-system-alias 'hz 'chinese-hz) |
17052 | 108 |
109 (set-language-info-alist | |
22983
7a010b8c0d99
("LANUGAGE-ENVIRONMENT"): Delete property setup-function or change
Kenichi Handa <handa@m17n.org>
parents:
20746
diff
changeset
|
110 "Chinese-GB" '((charset chinese-gb2312 chinese-sisheng) |
20746 | 111 (coding-system chinese-iso-8bit iso-2022-cn chinese-hz) |
112 (coding-priority chinese-iso-8bit chinese-big5 iso-2022-cn) | |
22983
7a010b8c0d99
("LANUGAGE-ENVIRONMENT"): Delete property setup-function or change
Kenichi Handa <handa@m17n.org>
parents:
20746
diff
changeset
|
113 (input-method . "chinese-py-punct") |
7a010b8c0d99
("LANUGAGE-ENVIRONMENT"): Delete property setup-function or change
Kenichi Handa <handa@m17n.org>
parents:
20746
diff
changeset
|
114 (features china-util) |
17765
9c4845e8101d
Make functions setup-LANGUAGE-environment
Kenichi Handa <handa@m17n.org>
parents:
17084
diff
changeset
|
115 (sample-text . "Chinese ($AVPND(B,$AFUM(;0(B,$A::So(B) $ADc:C(B") |
52644
ac1f8a6c8a38
("Chinese-GB", "Chinese-BIG5"): Set up for
Eli Zaretskii <eliz@gnu.org>
parents:
52401
diff
changeset
|
116 (documentation . "Support for Chinese GB2312 character set.") |
ac1f8a6c8a38
("Chinese-GB", "Chinese-BIG5"): Set up for
Eli Zaretskii <eliz@gnu.org>
parents:
52401
diff
changeset
|
117 (tutorial . "TUTORIAL.cn")) |
20746 | 118 '("Chinese")) |
17052 | 119 |
120 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
121 ;; Chinese BIG5 (traditional) | |
122 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
123 | |
88414
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42150
diff
changeset
|
124 (define-coding-system 'chinese-big5 |
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42150
diff
changeset
|
125 "BIG5 8-bit encoding for Chinese (MIME:Big5)" |
88480
5ccfce6bad5c
(chinese-big5): Change :coding-type to `charset'.
Kenichi Handa <handa@m17n.org>
parents:
88414
diff
changeset
|
126 :coding-type 'charset |
88414
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42150
diff
changeset
|
127 :mnemonic ?B |
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42150
diff
changeset
|
128 :charset-list '(ascii big5) |
88513 | 129 :mime-charset 'big5) |
17052 | 130 |
18520
383d11185239
Swap args to define-coding-system-alias.
Richard M. Stallman <rms@gnu.org>
parents:
18377
diff
changeset
|
131 (define-coding-system-alias 'big5 'chinese-big5) |
383d11185239
Swap args to define-coding-system-alias.
Richard M. Stallman <rms@gnu.org>
parents:
18377
diff
changeset
|
132 (define-coding-system-alias 'cn-big5 'chinese-big5) |
55474
e141d1037b4c
Add cp936 as alias for chinese-iso-8bit, and cp950 for chinese-big5.
Jason Rumney <jasonr@gnu.org>
parents:
52644
diff
changeset
|
133 (define-coding-system-alias 'cp950 'chinese-big5) |
17084
07f0a1e07d1e
Add INIT-BOL to coding system iso-2022-cn.
Kenichi Handa <handa@m17n.org>
parents:
17071
diff
changeset
|
134 |
17052 | 135 (set-language-info-alist |
22983
7a010b8c0d99
("LANUGAGE-ENVIRONMENT"): Delete property setup-function or change
Kenichi Handa <handa@m17n.org>
parents:
20746
diff
changeset
|
136 "Chinese-BIG5" '((charset chinese-big5-1 chinese-big5-2) |
20746 | 137 (coding-system chinese-big5 chinese-iso-7bit) |
138 (coding-priority chinese-big5 iso-2022-cn chinese-iso-8bit) | |
22983
7a010b8c0d99
("LANUGAGE-ENVIRONMENT"): Delete property setup-function or change
Kenichi Handa <handa@m17n.org>
parents:
20746
diff
changeset
|
139 (input-method . "chinese-py-punct-b5") |
90325
9e9c44bc96d6
("Chinese-BIG5"): Set ctext-non-standard-encodings property to
Kenichi Handa <handa@m17n.org>
parents:
90211
diff
changeset
|
140 (ctext-non-standard-encodings "big5-0") |
22983
7a010b8c0d99
("LANUGAGE-ENVIRONMENT"): Delete property setup-function or change
Kenichi Handa <handa@m17n.org>
parents:
20746
diff
changeset
|
141 (features china-util) |
90003
0e9a7c1a0b8e
(chinese-gbk): Include ascii in
Kenichi Handa <handa@m17n.org>
parents:
89943
diff
changeset
|
142 (sample-text . "Cantonese ($(Gemk#(B,$(Gl]N)fc(B) $ATg3?(B, $ADc:C(B") |
52644
ac1f8a6c8a38
("Chinese-GB", "Chinese-BIG5"): Set up for
Eli Zaretskii <eliz@gnu.org>
parents:
52401
diff
changeset
|
143 (documentation . "Support for Chinese Big5 character set.") |
ac1f8a6c8a38
("Chinese-GB", "Chinese-BIG5"): Set up for
Eli Zaretskii <eliz@gnu.org>
parents:
52401
diff
changeset
|
144 (tutorial . "TUTORIAL.zh")) |
20746 | 145 '("Chinese")) |
17052 | 146 |
89392
9d8a1dba6b31
(chinese-big5-hkscs): New coding system.
Dave Love <fx@gnu.org>
parents:
89168
diff
changeset
|
147 (define-coding-system 'chinese-big5-hkscs |
9d8a1dba6b31
(chinese-big5-hkscs): New coding system.
Dave Love <fx@gnu.org>
parents:
89168
diff
changeset
|
148 "BIG5-HKSCS 8-bit encoding for Chinese, Hong Kong supplement (MIME:Big5-HKSCS)" |
9d8a1dba6b31
(chinese-big5-hkscs): New coding system.
Dave Love <fx@gnu.org>
parents:
89168
diff
changeset
|
149 :coding-type 'charset |
9d8a1dba6b31
(chinese-big5-hkscs): New coding system.
Dave Love <fx@gnu.org>
parents:
89168
diff
changeset
|
150 :mnemonic ?B |
9d8a1dba6b31
(chinese-big5-hkscs): New coding system.
Dave Love <fx@gnu.org>
parents:
89168
diff
changeset
|
151 :charset-list '(ascii big5-hkscs) |
9d8a1dba6b31
(chinese-big5-hkscs): New coding system.
Dave Love <fx@gnu.org>
parents:
89168
diff
changeset
|
152 :mime-charset 'big5-hkscs) |
9d8a1dba6b31
(chinese-big5-hkscs): New coding system.
Dave Love <fx@gnu.org>
parents:
89168
diff
changeset
|
153 (define-coding-system-alias 'big5-hkscs 'chinese-big5-hkscs) |
9d8a1dba6b31
(chinese-big5-hkscs): New coding system.
Dave Love <fx@gnu.org>
parents:
89168
diff
changeset
|
154 (define-coding-system-alias 'cn-big5-hkscs 'chinese-big5-hkscs) |
9d8a1dba6b31
(chinese-big5-hkscs): New coding system.
Dave Love <fx@gnu.org>
parents:
89168
diff
changeset
|
155 |
17052 | 156 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
157 ;; Chinese CNS11643 (traditional) | |
158 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
159 | |
88414
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42150
diff
changeset
|
160 (define-coding-system 'euc-tw |
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42150
diff
changeset
|
161 "ISO 2022 based EUC encoding for Chinese CNS11643." |
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42150
diff
changeset
|
162 :coding-type 'iso-2022 |
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42150
diff
changeset
|
163 :mnemonic ?Z |
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42150
diff
changeset
|
164 :charset-list '(ascii |
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42150
diff
changeset
|
165 chinese-cns11643-1 |
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42150
diff
changeset
|
166 chinese-cns11643-2 |
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42150
diff
changeset
|
167 chinese-cns11643-3 |
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42150
diff
changeset
|
168 chinese-cns11643-4 |
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42150
diff
changeset
|
169 chinese-cns11643-5 |
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42150
diff
changeset
|
170 chinese-cns11643-6 |
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42150
diff
changeset
|
171 chinese-cns11643-7) |
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42150
diff
changeset
|
172 :designation [ascii chinese-cns11643-1 (chinese-cns11643-1 |
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42150
diff
changeset
|
173 chinese-cns11643-2 |
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42150
diff
changeset
|
174 chinese-cns11643-3 |
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42150
diff
changeset
|
175 chinese-cns11643-4 |
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42150
diff
changeset
|
176 chinese-cns11643-5 |
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42150
diff
changeset
|
177 chinese-cns11643-6 |
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42150
diff
changeset
|
178 chinese-cns11643-7) nil] |
88513 | 179 :mime-charset 'euc-tw) |
42150
35e8e47e376b
Implementing euc-tw encoding.
Werner LEMBERG <wl@gnu.org>
parents:
38414
diff
changeset
|
180 |
35e8e47e376b
Implementing euc-tw encoding.
Werner LEMBERG <wl@gnu.org>
parents:
38414
diff
changeset
|
181 (define-coding-system-alias 'euc-taiwan 'euc-tw) |
35e8e47e376b
Implementing euc-tw encoding.
Werner LEMBERG <wl@gnu.org>
parents:
38414
diff
changeset
|
182 |
17052 | 183 (set-language-info-alist |
22983
7a010b8c0d99
("LANUGAGE-ENVIRONMENT"): Delete property setup-function or change
Kenichi Handa <handa@m17n.org>
parents:
20746
diff
changeset
|
184 "Chinese-CNS" '((charset chinese-cns11643-1 chinese-cns11643-2 |
20746 | 185 chinese-cns11643-3 chinese-cns11643-4 |
186 chinese-cns11643-5 chinese-cns11643-6 | |
187 chinese-cns11643-7) | |
42150
35e8e47e376b
Implementing euc-tw encoding.
Werner LEMBERG <wl@gnu.org>
parents:
38414
diff
changeset
|
188 (coding-system iso-2022-cn euc-tw) |
35e8e47e376b
Implementing euc-tw encoding.
Werner LEMBERG <wl@gnu.org>
parents:
38414
diff
changeset
|
189 (coding-priority iso-2022-cn euc-tw chinese-big5 |
35e8e47e376b
Implementing euc-tw encoding.
Werner LEMBERG <wl@gnu.org>
parents:
38414
diff
changeset
|
190 chinese-iso-8bit) |
22983
7a010b8c0d99
("LANUGAGE-ENVIRONMENT"): Delete property setup-function or change
Kenichi Handa <handa@m17n.org>
parents:
20746
diff
changeset
|
191 (features china-util) |
7a010b8c0d99
("LANUGAGE-ENVIRONMENT"): Delete property setup-function or change
Kenichi Handa <handa@m17n.org>
parents:
20746
diff
changeset
|
192 (input-method . "chinese-cns-quick") |
88709 | 193 ;; Fixme: presumably it won't accept big5 now. |
42150
35e8e47e376b
Implementing euc-tw encoding.
Werner LEMBERG <wl@gnu.org>
parents:
38414
diff
changeset
|
194 (documentation . "\ |
49084 | 195 Support for Chinese CNS character sets. Note that the EUC-TW coding system |
42150
35e8e47e376b
Implementing euc-tw encoding.
Werner LEMBERG <wl@gnu.org>
parents:
38414
diff
changeset
|
196 accepts Big5 for input also (which is then converted to CNS).")) |
20746 | 197 '("Chinese")) |
17052 | 198 |
49084 | 199 (set-language-info-alist |
200 "Chinese-EUC-TW" '((charset chinese-cns11643-1 chinese-cns11643-2 | |
201 chinese-cns11643-3 chinese-cns11643-4 | |
202 chinese-cns11643-5 chinese-cns11643-6 | |
203 chinese-cns11643-7 chinese-big5-1 chinese-big5-2) | |
204 (coding-system euc-tw iso-2022-cn) | |
205 (coding-priority euc-tw chinese-big5 iso-2022-cn | |
206 chinese-iso-8bit) | |
207 (features china-util) | |
208 (input-method . "chinese-cns-quick") | |
209 (documentation . "\ | |
210 Support for Chinese, prefering the EUC-TW character set. Note that | |
211 the EUC-TW coding system accepts Big5 for input also (which is then | |
212 converted to CNS).")) | |
213 '("Chinese")) | |
214 | |
89483 | 215 |
88764
2ea3c1b5c30b
(chinese-gbk, gbk, cp936, windows-936): New
Dave Love <fx@gnu.org>
parents:
88709
diff
changeset
|
216 ;;; Chinese GBK |
2ea3c1b5c30b
(chinese-gbk, gbk, cp936, windows-936): New
Dave Love <fx@gnu.org>
parents:
88709
diff
changeset
|
217 |
2ea3c1b5c30b
(chinese-gbk, gbk, cp936, windows-936): New
Dave Love <fx@gnu.org>
parents:
88709
diff
changeset
|
218 (define-coding-system 'chinese-gbk |
2ea3c1b5c30b
(chinese-gbk, gbk, cp936, windows-936): New
Dave Love <fx@gnu.org>
parents:
88709
diff
changeset
|
219 "GBK encoding for Chinese (MIME:GBK)." |
2ea3c1b5c30b
(chinese-gbk, gbk, cp936, windows-936): New
Dave Love <fx@gnu.org>
parents:
88709
diff
changeset
|
220 :coding-type 'charset |
2ea3c1b5c30b
(chinese-gbk, gbk, cp936, windows-936): New
Dave Love <fx@gnu.org>
parents:
88709
diff
changeset
|
221 :mnemonic ?c |
90003
0e9a7c1a0b8e
(chinese-gbk): Include ascii in
Kenichi Handa <handa@m17n.org>
parents:
89943
diff
changeset
|
222 :charset-list '(ascii chinese-gbk) |
88764
2ea3c1b5c30b
(chinese-gbk, gbk, cp936, windows-936): New
Dave Love <fx@gnu.org>
parents:
88709
diff
changeset
|
223 :mime-charset 'gbk) |
2ea3c1b5c30b
(chinese-gbk, gbk, cp936, windows-936): New
Dave Love <fx@gnu.org>
parents:
88709
diff
changeset
|
224 (define-coding-system-alias 'gbk 'chinese-gbk) |
2ea3c1b5c30b
(chinese-gbk, gbk, cp936, windows-936): New
Dave Love <fx@gnu.org>
parents:
88709
diff
changeset
|
225 (define-coding-system-alias 'cp936 'chinese-gbk) |
2ea3c1b5c30b
(chinese-gbk, gbk, cp936, windows-936): New
Dave Love <fx@gnu.org>
parents:
88709
diff
changeset
|
226 (define-coding-system-alias 'windows-936 'chinese-gbk) |
2ea3c1b5c30b
(chinese-gbk, gbk, cp936, windows-936): New
Dave Love <fx@gnu.org>
parents:
88709
diff
changeset
|
227 |
2ea3c1b5c30b
(chinese-gbk, gbk, cp936, windows-936): New
Dave Love <fx@gnu.org>
parents:
88709
diff
changeset
|
228 (set-language-info-alist |
2ea3c1b5c30b
(chinese-gbk, gbk, cp936, windows-936): New
Dave Love <fx@gnu.org>
parents:
88709
diff
changeset
|
229 "Chinese-GBK" '((charset chinese-gbk) |
89163 | 230 (coding-system chinese-gbk) |
231 (coding-priority gbk iso-2022-cn chinese-big5 | |
232 chinese-iso-8bit) ; fixme? | |
90325
9e9c44bc96d6
("Chinese-BIG5"): Set ctext-non-standard-encodings property to
Kenichi Handa <handa@m17n.org>
parents:
90211
diff
changeset
|
233 (ctext-non-standard-encodings "gbk-0") |
89163 | 234 (input-method . "chinese-py-punct") ; fixme? |
90325
9e9c44bc96d6
("Chinese-BIG5"): Set ctext-non-standard-encodings property to
Kenichi Handa <handa@m17n.org>
parents:
90211
diff
changeset
|
235 (sample-text . "Chinese ($BCfJ8(B,$BIaDL$A;0(B,$A::So(B) $(D95$B9%(B") |
89163 | 236 (features china-util) |
90687
918439636cee
("Chinese-GBK"): Add tutorial.
Kenichi Handa <handa@m17n.org>
parents:
90325
diff
changeset
|
237 (documentation . "Support for Chinese GBK character set.") |
918439636cee
("Chinese-GBK"): Add tutorial.
Kenichi Handa <handa@m17n.org>
parents:
90325
diff
changeset
|
238 (tutorial . "TUTORIAL.cn")) |
88764
2ea3c1b5c30b
(chinese-gbk, gbk, cp936, windows-936): New
Dave Love <fx@gnu.org>
parents:
88709
diff
changeset
|
239 '("Chinese")) |
2ea3c1b5c30b
(chinese-gbk, gbk, cp936, windows-936): New
Dave Love <fx@gnu.org>
parents:
88709
diff
changeset
|
240 |
89163 | 241 ;;; Chinese GB18030 |
242 | |
243 (define-coding-system 'chinese-gb18030 | |
244 "GB18030 encoding for Chinese (MIME:GB18030)." | |
245 :coding-type 'charset | |
246 :mnemonic ?c | |
89674
481e76f32323
(chinese-gb18030): Fix :charset-list.
Kenichi Handa <handa@m17n.org>
parents:
89483
diff
changeset
|
247 :charset-list '(ascii gb18030-2-byte |
481e76f32323
(chinese-gb18030): Fix :charset-list.
Kenichi Handa <handa@m17n.org>
parents:
89483
diff
changeset
|
248 gb18030-4-byte-bmp gb18030-4-byte-smp |
481e76f32323
(chinese-gb18030): Fix :charset-list.
Kenichi Handa <handa@m17n.org>
parents:
89483
diff
changeset
|
249 gb18030-4-byte-ext-1 gb18030-4-byte-ext-2) |
89483 | 250 :mime-charset 'gb18030) |
251 | |
89163 | 252 (define-coding-system-alias 'gb18030 'chinese-gb18030) |
253 | |
254 (set-language-info-alist | |
89168 | 255 "Chinese-GB18030" '((charset gb18030) |
89163 | 256 (coding-system chinese-gb18030) |
257 (coding-priority gb18030 gbk iso-2022-cn chinese-big5 | |
258 chinese-iso-8bit) ; fixme? | |
259 (input-method . "chinese-py-punct") ; fixme? | |
90687
918439636cee
("Chinese-GBK"): Add tutorial.
Kenichi Handa <handa@m17n.org>
parents:
90325
diff
changeset
|
260 (sample-text . "Chinese ($BCfJ8(B,$BIaDL$A;0(B,$A::So(B) $(D0_$B9%(B") |
89163 | 261 (features china-util) |
262 (documentation | |
90687
918439636cee
("Chinese-GBK"): Add tutorial.
Kenichi Handa <handa@m17n.org>
parents:
90325
diff
changeset
|
263 . "Support for Chinese GB18030 character set.") |
918439636cee
("Chinese-GBK"): Add tutorial.
Kenichi Handa <handa@m17n.org>
parents:
90325
diff
changeset
|
264 (tutorial . "TUTORIAL.cn")) |
89163 | 265 '("Chinese")) |
266 | |
267 ;; Fixme: add HKSCS | |
88668 | 268 |
33778 | 269 (provide 'chinese) |
270 | |
52401 | 271 ;;; arch-tag: b82fcf7a-84f6-4e0b-b38c-1742dac0e09f |
17052 | 272 ;;; chinese.el ends here |