Mercurial > emacs
annotate lisp/language/chinese.el @ 90012:845142d93266
(hz-set-msb-table): Turn chars beyond 128
to eight-bit chars.
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Tue, 12 Oct 2004 02:51:14 +0000 |
parents | 0e9a7c1a0b8e |
children | f042e7c0fe20 |
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 |
3 ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN. | |
89483 | 4 ;; Licensed to the Free Software Foundation. |
5 ;; Copyright (C) 2003 | |
6 ;; National Institute of Advanced Industrial Science and Technology (AIST) | |
7 ;; Registration Number H13PRO009 | |
17052 | 8 |
9 ;; Keywords: multilingual, Chinese | |
10 | |
11 ;; This file is part of GNU Emacs. | |
12 | |
13 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
14 ;; it under the terms of the GNU General Public License as published by | |
15 ;; the Free Software Foundation; either version 2, or (at your option) | |
16 ;; any later version. | |
17 | |
18 ;; GNU Emacs is distributed in the hope that it will be useful, | |
19 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
20 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
21 ;; GNU General Public License for more details. | |
22 | |
23 ;; You should have received a copy of the GNU General Public License | |
17071 | 24 ;; along with GNU Emacs; see the file COPYING. If not, write to the |
25 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, | |
26 ;; Boston, MA 02111-1307, USA. | |
17052 | 27 |
28 ;;; Commentary: | |
29 | |
30 ;; For Chinese, three character sets GB2312, BIG5, and CNS11643 are | |
31 ;; supported. | |
32 | |
33 ;;; Code: | |
34 | |
35 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
36 ;;; Chinese (general) | |
37 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
38 | |
89483 | 39 |
88414
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42150
diff
changeset
|
40 (define-coding-system 'iso-2022-cn |
89483 | 41 "ISO 2022 based 7bit encoding for Chinese GB and CNS (MIME:ISO-2022-CN)." |
42 :coding-type 'iso-2022 | |
43 :mnemonic ?C | |
44 :charset-list '(ascii chinese-gb2312 chinese-cns11643-1 chinese-cns11643-2) | |
45 :designation [ascii | |
46 (nil chinese-gb2312 chinese-cns11643-1) | |
47 (nil chinese-cns11643-2) | |
48 nil] | |
49 :flags '(ascii-at-eol ascii-at-cntl 7-bit | |
50 designation locking-shift single-shift init-at-bol) | |
51 :mime-charset 'iso-2022-cn) | |
20746 | 52 |
53 (define-coding-system-alias 'chinese-iso-7bit 'iso-2022-cn) | |
54 | |
88414
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42150
diff
changeset
|
55 (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
|
56 "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
|
57 :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
|
58 :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
|
59 :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
|
60 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
|
61 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
|
62 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
|
63 :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
|
64 (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
|
65 (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
|
66 (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
|
67 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 :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
|
69 designation locking-shift single-shift init-at-bol) |
88513 | 70 :mime-charset 'iso-2022-cn-ext) |
17084
07f0a1e07d1e
Add INIT-BOL to coding system iso-2022-cn.
Kenichi Handa <handa@m17n.org>
parents:
17071
diff
changeset
|
71 |
17993
73869115ae0a
Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents:
17841
diff
changeset
|
72 |
17052 | 73 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
49084
diff
changeset
|
74 ;;; Chinese GB2312 (simplified) |
17052 | 75 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
76 | |
88414
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42150
diff
changeset
|
77 (define-coding-system 'chinese-iso-8bit |
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42150
diff
changeset
|
78 "ISO 2022 based EUC encoding for Chinese GB2312 (MIME:CN-GB)." |
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42150
diff
changeset
|
79 :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
|
80 :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
|
81 :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
|
82 :designation [ascii chinese-gb2312 nil nil] |
88513 | 83 :mime-charset 'cn-gb) |
17052 | 84 |
18520
383d11185239
Swap args to define-coding-system-alias.
Richard M. Stallman <rms@gnu.org>
parents:
18377
diff
changeset
|
85 (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
|
86 (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
|
87 (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
|
88 (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
|
89 (define-coding-system-alias 'gb2312 'chinese-iso-8bit) |
55474
e141d1037b4c
Add cp936 as alias for chinese-iso-8bit, and cp950 for chinese-big5.
Jason Rumney <jasonr@gnu.org>
parents:
52644
diff
changeset
|
90 (define-coding-system-alias 'cp936 'chinese-iso-8bit) |
17084
07f0a1e07d1e
Add INIT-BOL to coding system iso-2022-cn.
Kenichi Handa <handa@m17n.org>
parents:
17071
diff
changeset
|
91 |
88414
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42150
diff
changeset
|
92 (define-coding-system 'chinese-hz |
89483 | 93 "Hz/ZW 7-bit encoding for Chinese GB2312 (MIME:HZ-GB-2312)." |
94 :coding-type 'utf-8 | |
95 :mnemonic ?z | |
96 :charset-list '(ascii chinese-gb2312) | |
97 :mime-charset 'hz-gb-2312 | |
98 :post-read-conversion 'post-read-decode-hz | |
99 :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
|
100 |
18520
383d11185239
Swap args to define-coding-system-alias.
Richard M. Stallman <rms@gnu.org>
parents:
18377
diff
changeset
|
101 (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
|
102 (define-coding-system-alias 'hz 'chinese-hz) |
17052 | 103 |
104 (set-language-info-alist | |
22983
7a010b8c0d99
("LANUGAGE-ENVIRONMENT"): Delete property setup-function or change
Kenichi Handa <handa@m17n.org>
parents:
20746
diff
changeset
|
105 "Chinese-GB" '((charset chinese-gb2312 chinese-sisheng) |
20746 | 106 (coding-system chinese-iso-8bit iso-2022-cn chinese-hz) |
107 (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
|
108 (input-method . "chinese-py-punct") |
7a010b8c0d99
("LANUGAGE-ENVIRONMENT"): Delete property setup-function or change
Kenichi Handa <handa@m17n.org>
parents:
20746
diff
changeset
|
109 (features china-util) |
17765
9c4845e8101d
Make functions setup-LANGUAGE-environment
Kenichi Handa <handa@m17n.org>
parents:
17084
diff
changeset
|
110 (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
|
111 (documentation . "Support for Chinese GB2312 character set.") |
ac1f8a6c8a38
("Chinese-GB", "Chinese-BIG5"): Set up for
Eli Zaretskii <eliz@gnu.org>
parents:
52401
diff
changeset
|
112 (tutorial . "TUTORIAL.cn")) |
20746 | 113 '("Chinese")) |
17052 | 114 |
115 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
116 ;; Chinese BIG5 (traditional) | |
117 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
118 | |
88414
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42150
diff
changeset
|
119 (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
|
120 "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
|
121 :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
|
122 :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
|
123 :charset-list '(ascii big5) |
88513 | 124 :mime-charset 'big5) |
17052 | 125 |
18520
383d11185239
Swap args to define-coding-system-alias.
Richard M. Stallman <rms@gnu.org>
parents:
18377
diff
changeset
|
126 (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
|
127 (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
|
128 (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
|
129 |
17052 | 130 (set-language-info-alist |
22983
7a010b8c0d99
("LANUGAGE-ENVIRONMENT"): Delete property setup-function or change
Kenichi Handa <handa@m17n.org>
parents:
20746
diff
changeset
|
131 "Chinese-BIG5" '((charset chinese-big5-1 chinese-big5-2) |
20746 | 132 (coding-system chinese-big5 chinese-iso-7bit) |
133 (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
|
134 (input-method . "chinese-py-punct-b5") |
7a010b8c0d99
("LANUGAGE-ENVIRONMENT"): Delete property setup-function or change
Kenichi Handa <handa@m17n.org>
parents:
20746
diff
changeset
|
135 (features china-util) |
90003
0e9a7c1a0b8e
(chinese-gbk): Include ascii in
Kenichi Handa <handa@m17n.org>
parents:
89943
diff
changeset
|
136 (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
|
137 (documentation . "Support for Chinese Big5 character set.") |
ac1f8a6c8a38
("Chinese-GB", "Chinese-BIG5"): Set up for
Eli Zaretskii <eliz@gnu.org>
parents:
52401
diff
changeset
|
138 (tutorial . "TUTORIAL.zh")) |
20746 | 139 '("Chinese")) |
17052 | 140 |
89392
9d8a1dba6b31
(chinese-big5-hkscs): New coding system.
Dave Love <fx@gnu.org>
parents:
89168
diff
changeset
|
141 (define-coding-system 'chinese-big5-hkscs |
9d8a1dba6b31
(chinese-big5-hkscs): New coding system.
Dave Love <fx@gnu.org>
parents:
89168
diff
changeset
|
142 "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
|
143 :coding-type 'charset |
9d8a1dba6b31
(chinese-big5-hkscs): New coding system.
Dave Love <fx@gnu.org>
parents:
89168
diff
changeset
|
144 :mnemonic ?B |
9d8a1dba6b31
(chinese-big5-hkscs): New coding system.
Dave Love <fx@gnu.org>
parents:
89168
diff
changeset
|
145 :charset-list '(ascii big5-hkscs) |
9d8a1dba6b31
(chinese-big5-hkscs): New coding system.
Dave Love <fx@gnu.org>
parents:
89168
diff
changeset
|
146 :mime-charset 'big5-hkscs) |
9d8a1dba6b31
(chinese-big5-hkscs): New coding system.
Dave Love <fx@gnu.org>
parents:
89168
diff
changeset
|
147 (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
|
148 (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
|
149 |
17052 | 150 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
151 ;; Chinese CNS11643 (traditional) | |
152 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
153 | |
88414
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42150
diff
changeset
|
154 (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
|
155 "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
|
156 :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
|
157 :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
|
158 :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
|
159 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
|
160 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
|
161 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
|
162 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
|
163 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
|
164 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
|
165 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
|
166 :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
|
167 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
|
168 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
|
169 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
|
170 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
|
171 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
|
172 chinese-cns11643-7) nil] |
88513 | 173 :mime-charset 'euc-tw) |
42150
35e8e47e376b
Implementing euc-tw encoding.
Werner LEMBERG <wl@gnu.org>
parents:
38414
diff
changeset
|
174 |
35e8e47e376b
Implementing euc-tw encoding.
Werner LEMBERG <wl@gnu.org>
parents:
38414
diff
changeset
|
175 (define-coding-system-alias 'euc-taiwan 'euc-tw) |
35e8e47e376b
Implementing euc-tw encoding.
Werner LEMBERG <wl@gnu.org>
parents:
38414
diff
changeset
|
176 |
17052 | 177 (set-language-info-alist |
22983
7a010b8c0d99
("LANUGAGE-ENVIRONMENT"): Delete property setup-function or change
Kenichi Handa <handa@m17n.org>
parents:
20746
diff
changeset
|
178 "Chinese-CNS" '((charset chinese-cns11643-1 chinese-cns11643-2 |
20746 | 179 chinese-cns11643-3 chinese-cns11643-4 |
180 chinese-cns11643-5 chinese-cns11643-6 | |
181 chinese-cns11643-7) | |
42150
35e8e47e376b
Implementing euc-tw encoding.
Werner LEMBERG <wl@gnu.org>
parents:
38414
diff
changeset
|
182 (coding-system iso-2022-cn euc-tw) |
35e8e47e376b
Implementing euc-tw encoding.
Werner LEMBERG <wl@gnu.org>
parents:
38414
diff
changeset
|
183 (coding-priority iso-2022-cn euc-tw chinese-big5 |
35e8e47e376b
Implementing euc-tw encoding.
Werner LEMBERG <wl@gnu.org>
parents:
38414
diff
changeset
|
184 chinese-iso-8bit) |
22983
7a010b8c0d99
("LANUGAGE-ENVIRONMENT"): Delete property setup-function or change
Kenichi Handa <handa@m17n.org>
parents:
20746
diff
changeset
|
185 (features china-util) |
7a010b8c0d99
("LANUGAGE-ENVIRONMENT"): Delete property setup-function or change
Kenichi Handa <handa@m17n.org>
parents:
20746
diff
changeset
|
186 (input-method . "chinese-cns-quick") |
88709 | 187 ;; Fixme: presumably it won't accept big5 now. |
42150
35e8e47e376b
Implementing euc-tw encoding.
Werner LEMBERG <wl@gnu.org>
parents:
38414
diff
changeset
|
188 (documentation . "\ |
49084 | 189 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
|
190 accepts Big5 for input also (which is then converted to CNS).")) |
20746 | 191 '("Chinese")) |
17052 | 192 |
49084 | 193 (set-language-info-alist |
194 "Chinese-EUC-TW" '((charset chinese-cns11643-1 chinese-cns11643-2 | |
195 chinese-cns11643-3 chinese-cns11643-4 | |
196 chinese-cns11643-5 chinese-cns11643-6 | |
197 chinese-cns11643-7 chinese-big5-1 chinese-big5-2) | |
198 (coding-system euc-tw iso-2022-cn) | |
199 (coding-priority euc-tw chinese-big5 iso-2022-cn | |
200 chinese-iso-8bit) | |
201 (features china-util) | |
202 (input-method . "chinese-cns-quick") | |
203 (documentation . "\ | |
204 Support for Chinese, prefering the EUC-TW character set. Note that | |
205 the EUC-TW coding system accepts Big5 for input also (which is then | |
206 converted to CNS).")) | |
207 '("Chinese")) | |
208 | |
89483 | 209 |
88764
2ea3c1b5c30b
(chinese-gbk, gbk, cp936, windows-936): New
Dave Love <fx@gnu.org>
parents:
88709
diff
changeset
|
210 ;;; Chinese GBK |
2ea3c1b5c30b
(chinese-gbk, gbk, cp936, windows-936): New
Dave Love <fx@gnu.org>
parents:
88709
diff
changeset
|
211 |
2ea3c1b5c30b
(chinese-gbk, gbk, cp936, windows-936): New
Dave Love <fx@gnu.org>
parents:
88709
diff
changeset
|
212 (define-coding-system 'chinese-gbk |
2ea3c1b5c30b
(chinese-gbk, gbk, cp936, windows-936): New
Dave Love <fx@gnu.org>
parents:
88709
diff
changeset
|
213 "GBK encoding for Chinese (MIME:GBK)." |
2ea3c1b5c30b
(chinese-gbk, gbk, cp936, windows-936): New
Dave Love <fx@gnu.org>
parents:
88709
diff
changeset
|
214 :coding-type 'charset |
2ea3c1b5c30b
(chinese-gbk, gbk, cp936, windows-936): New
Dave Love <fx@gnu.org>
parents:
88709
diff
changeset
|
215 :mnemonic ?c |
90003
0e9a7c1a0b8e
(chinese-gbk): Include ascii in
Kenichi Handa <handa@m17n.org>
parents:
89943
diff
changeset
|
216 :charset-list '(ascii chinese-gbk) |
88764
2ea3c1b5c30b
(chinese-gbk, gbk, cp936, windows-936): New
Dave Love <fx@gnu.org>
parents:
88709
diff
changeset
|
217 :mime-charset 'gbk) |
2ea3c1b5c30b
(chinese-gbk, gbk, cp936, windows-936): New
Dave Love <fx@gnu.org>
parents:
88709
diff
changeset
|
218 (define-coding-system-alias 'gbk 'chinese-gbk) |
2ea3c1b5c30b
(chinese-gbk, gbk, cp936, windows-936): New
Dave Love <fx@gnu.org>
parents:
88709
diff
changeset
|
219 (define-coding-system-alias 'cp936 'chinese-gbk) |
2ea3c1b5c30b
(chinese-gbk, gbk, cp936, windows-936): New
Dave Love <fx@gnu.org>
parents:
88709
diff
changeset
|
220 (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
|
221 |
2ea3c1b5c30b
(chinese-gbk, gbk, cp936, windows-936): New
Dave Love <fx@gnu.org>
parents:
88709
diff
changeset
|
222 (set-language-info-alist |
2ea3c1b5c30b
(chinese-gbk, gbk, cp936, windows-936): New
Dave Love <fx@gnu.org>
parents:
88709
diff
changeset
|
223 "Chinese-GBK" '((charset chinese-gbk) |
89163 | 224 (coding-system chinese-gbk) |
225 (coding-priority gbk iso-2022-cn chinese-big5 | |
226 chinese-iso-8bit) ; fixme? | |
227 (input-method . "chinese-py-punct") ; fixme? | |
228 (features china-util) | |
229 (documentation . "Support for Chinese GBK character set.")) | |
88764
2ea3c1b5c30b
(chinese-gbk, gbk, cp936, windows-936): New
Dave Love <fx@gnu.org>
parents:
88709
diff
changeset
|
230 '("Chinese")) |
2ea3c1b5c30b
(chinese-gbk, gbk, cp936, windows-936): New
Dave Love <fx@gnu.org>
parents:
88709
diff
changeset
|
231 |
89163 | 232 ;;; Chinese GB18030 |
233 | |
234 (define-coding-system 'chinese-gb18030 | |
235 "GB18030 encoding for Chinese (MIME:GB18030)." | |
236 :coding-type 'charset | |
237 :mnemonic ?c | |
89674
481e76f32323
(chinese-gb18030): Fix :charset-list.
Kenichi Handa <handa@m17n.org>
parents:
89483
diff
changeset
|
238 :charset-list '(ascii gb18030-2-byte |
481e76f32323
(chinese-gb18030): Fix :charset-list.
Kenichi Handa <handa@m17n.org>
parents:
89483
diff
changeset
|
239 gb18030-4-byte-bmp gb18030-4-byte-smp |
481e76f32323
(chinese-gb18030): Fix :charset-list.
Kenichi Handa <handa@m17n.org>
parents:
89483
diff
changeset
|
240 gb18030-4-byte-ext-1 gb18030-4-byte-ext-2) |
89483 | 241 :mime-charset 'gb18030) |
242 | |
89163 | 243 (define-coding-system-alias 'gb18030 'chinese-gb18030) |
244 | |
245 (set-language-info-alist | |
89168 | 246 "Chinese-GB18030" '((charset gb18030) |
89163 | 247 (coding-system chinese-gb18030) |
248 (coding-priority gb18030 gbk iso-2022-cn chinese-big5 | |
249 chinese-iso-8bit) ; fixme? | |
250 (input-method . "chinese-py-punct") ; fixme? | |
251 (features china-util) | |
252 (documentation | |
253 . "Support for Chinese GB18030 character set.")) | |
254 '("Chinese")) | |
255 | |
256 ;; Fixme: add HKSCS | |
88668 | 257 |
33778 | 258 (provide 'chinese) |
259 | |
52401 | 260 ;;; arch-tag: b82fcf7a-84f6-4e0b-b38c-1742dac0e09f |
17052 | 261 ;;; chinese.el ends here |