Mercurial > emacs
annotate lisp/language/chinese.el @ 101331:562944d6149f
Add eshell-handle-ansi-color to the default list of output filters.
author | John Wiegley <johnw@newartisans.com> |
---|---|
date | Thu, 22 Jan 2009 01:11:30 +0000 |
parents | a9dc0e7c3f2b |
children | 0313327a13eb |
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 |
100908 | 3 ;; Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009 |
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, |
100908 | 6 ;; 2005, 2006, 2007, 2008, 2009 |
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 | |
94665
55b7f25d920a
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
17 ;; GNU Emacs is free software: you can redistribute it and/or modify |
17052 | 18 ;; it under the terms of the GNU General Public License as published by |
94665
55b7f25d920a
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
19 ;; the Free Software Foundation, either version 3 of the License, or |
55b7f25d920a
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
20 ;; (at your option) any later version. |
17052 | 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 | |
94665
55b7f25d920a
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
28 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. |
17052 | 29 |
30 ;;; Commentary: | |
31 | |
32 ;; For Chinese, three character sets GB2312, BIG5, and CNS11643 are | |
33 ;; supported. | |
34 | |
35 ;;; Code: | |
36 | |
37 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
38 ;;; Chinese (general) | |
39 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
40 | |
89483 | 41 |
88414
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42150
diff
changeset
|
42 (define-coding-system 'iso-2022-cn |
89483 | 43 "ISO 2022 based 7bit encoding for Chinese GB and CNS (MIME:ISO-2022-CN)." |
44 :coding-type 'iso-2022 | |
45 :mnemonic ?C | |
46 :charset-list '(ascii chinese-gb2312 chinese-cns11643-1 chinese-cns11643-2) | |
47 :designation [ascii | |
48 (nil chinese-gb2312 chinese-cns11643-1) | |
49 (nil chinese-cns11643-2) | |
50 nil] | |
51 :flags '(ascii-at-eol ascii-at-cntl 7-bit | |
52 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
|
53 :mime-charset 'iso-2022-cn |
efcbeb957a31
(iso-2022-cn, iso-2022-cn-ext): Set
Kenichi Handa <handa@m17n.org>
parents:
90200
diff
changeset
|
54 :suitable-for-keyboard t) |
20746 | 55 |
56 (define-coding-system-alias 'chinese-iso-7bit 'iso-2022-cn) | |
57 | |
88414
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42150
diff
changeset
|
58 (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
|
59 "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
|
60 :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
|
61 :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
|
62 :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
|
63 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
|
64 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
|
65 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
|
66 :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
|
67 (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
|
68 (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
|
69 (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
|
70 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
|
71 :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
|
72 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
|
73 :mime-charset 'iso-2022-cn-ext |
efcbeb957a31
(iso-2022-cn, iso-2022-cn-ext): Set
Kenichi Handa <handa@m17n.org>
parents:
90200
diff
changeset
|
74 :suitable-for-keyboard t) |
17084
07f0a1e07d1e
Add INIT-BOL to coding system iso-2022-cn.
Kenichi Handa <handa@m17n.org>
parents:
17071
diff
changeset
|
75 |
17993
73869115ae0a
Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents:
17841
diff
changeset
|
76 |
17052 | 77 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
49084
diff
changeset
|
78 ;;; Chinese GB2312 (simplified) |
17052 | 79 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
80 | |
88414
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42150
diff
changeset
|
81 (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
|
82 "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
|
83 :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
|
84 :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
|
85 :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
|
86 :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
|
87 :mime-charset 'gb2312) |
17052 | 88 |
18520
383d11185239
Swap args to define-coding-system-alias.
Richard M. Stallman <rms@gnu.org>
parents:
18377
diff
changeset
|
89 (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
|
90 (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
|
91 (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
|
92 (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
|
93 (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
|
94 |
88414
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42150
diff
changeset
|
95 (define-coding-system 'chinese-hz |
89483 | 96 "Hz/ZW 7-bit encoding for Chinese GB2312 (MIME:HZ-GB-2312)." |
97 :coding-type 'utf-8 | |
98 :mnemonic ?z | |
99 :charset-list '(ascii chinese-gb2312) | |
100 :mime-charset 'hz-gb-2312 | |
101 :post-read-conversion 'post-read-decode-hz | |
102 :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
|
103 |
18520
383d11185239
Swap args to define-coding-system-alias.
Richard M. Stallman <rms@gnu.org>
parents:
18377
diff
changeset
|
104 (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
|
105 (define-coding-system-alias 'hz 'chinese-hz) |
17052 | 106 |
107 (set-language-info-alist | |
22983
7a010b8c0d99
("LANUGAGE-ENVIRONMENT"): Delete property setup-function or change
Kenichi Handa <handa@m17n.org>
parents:
20746
diff
changeset
|
108 "Chinese-GB" '((charset chinese-gb2312 chinese-sisheng) |
94952
09277c117521
("Chinese-GB", "Chinese-BIG5")
Kenichi Handa <handa@m17n.org>
parents:
94665
diff
changeset
|
109 (iso639-language . zh) |
20746 | 110 (coding-system chinese-iso-8bit iso-2022-cn chinese-hz) |
111 (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
|
112 (input-method . "chinese-py-punct") |
7a010b8c0d99
("LANUGAGE-ENVIRONMENT"): Delete property setup-function or change
Kenichi Handa <handa@m17n.org>
parents:
20746
diff
changeset
|
113 (features china-util) |
17765
9c4845e8101d
Make functions setup-LANGUAGE-environment
Kenichi Handa <handa@m17n.org>
parents:
17084
diff
changeset
|
114 (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
|
115 (documentation . "Support for Chinese GB2312 character set.") |
ac1f8a6c8a38
("Chinese-GB", "Chinese-BIG5"): Set up for
Eli Zaretskii <eliz@gnu.org>
parents:
52401
diff
changeset
|
116 (tutorial . "TUTORIAL.cn")) |
20746 | 117 '("Chinese")) |
17052 | 118 |
119 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
120 ;; Chinese BIG5 (traditional) | |
121 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
122 | |
88414
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42150
diff
changeset
|
123 (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
|
124 "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
|
125 :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
|
126 :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
|
127 :charset-list '(ascii big5) |
88513 | 128 :mime-charset 'big5) |
17052 | 129 |
18520
383d11185239
Swap args to define-coding-system-alias.
Richard M. Stallman <rms@gnu.org>
parents:
18377
diff
changeset
|
130 (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
|
131 (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
|
132 (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
|
133 |
17052 | 134 (set-language-info-alist |
22983
7a010b8c0d99
("LANUGAGE-ENVIRONMENT"): Delete property setup-function or change
Kenichi Handa <handa@m17n.org>
parents:
20746
diff
changeset
|
135 "Chinese-BIG5" '((charset chinese-big5-1 chinese-big5-2) |
94952
09277c117521
("Chinese-GB", "Chinese-BIG5")
Kenichi Handa <handa@m17n.org>
parents:
94665
diff
changeset
|
136 (iso639-language . zh) |
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) |
95027 | 142 (sample-text . "Cantonese ($(0GnM$(B,$(0N]0*Hd(B) $(0*/=((B, $(0+$)p(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) | |
94952
09277c117521
("Chinese-GB", "Chinese-BIG5")
Kenichi Handa <handa@m17n.org>
parents:
94665
diff
changeset
|
188 (iso639-language . zh) |
42150
35e8e47e376b
Implementing euc-tw encoding.
Werner LEMBERG <wl@gnu.org>
parents:
38414
diff
changeset
|
189 (coding-system iso-2022-cn euc-tw) |
35e8e47e376b
Implementing euc-tw encoding.
Werner LEMBERG <wl@gnu.org>
parents:
38414
diff
changeset
|
190 (coding-priority iso-2022-cn euc-tw chinese-big5 |
35e8e47e376b
Implementing euc-tw encoding.
Werner LEMBERG <wl@gnu.org>
parents:
38414
diff
changeset
|
191 chinese-iso-8bit) |
22983
7a010b8c0d99
("LANUGAGE-ENVIRONMENT"): Delete property setup-function or change
Kenichi Handa <handa@m17n.org>
parents:
20746
diff
changeset
|
192 (features china-util) |
7a010b8c0d99
("LANUGAGE-ENVIRONMENT"): Delete property setup-function or change
Kenichi Handa <handa@m17n.org>
parents:
20746
diff
changeset
|
193 (input-method . "chinese-cns-quick") |
88709 | 194 ;; Fixme: presumably it won't accept big5 now. |
42150
35e8e47e376b
Implementing euc-tw encoding.
Werner LEMBERG <wl@gnu.org>
parents:
38414
diff
changeset
|
195 (documentation . "\ |
49084 | 196 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
|
197 accepts Big5 for input also (which is then converted to CNS).")) |
20746 | 198 '("Chinese")) |
17052 | 199 |
49084 | 200 (set-language-info-alist |
201 "Chinese-EUC-TW" '((charset chinese-cns11643-1 chinese-cns11643-2 | |
202 chinese-cns11643-3 chinese-cns11643-4 | |
203 chinese-cns11643-5 chinese-cns11643-6 | |
204 chinese-cns11643-7 chinese-big5-1 chinese-big5-2) | |
94952
09277c117521
("Chinese-GB", "Chinese-BIG5")
Kenichi Handa <handa@m17n.org>
parents:
94665
diff
changeset
|
205 (iso639-language . zh) |
49084 | 206 (coding-system euc-tw iso-2022-cn) |
207 (coding-priority euc-tw chinese-big5 iso-2022-cn | |
208 chinese-iso-8bit) | |
209 (features china-util) | |
210 (input-method . "chinese-cns-quick") | |
211 (documentation . "\ | |
212 Support for Chinese, prefering the EUC-TW character set. Note that | |
213 the EUC-TW coding system accepts Big5 for input also (which is then | |
214 converted to CNS).")) | |
215 '("Chinese")) | |
216 | |
89483 | 217 |
88764
2ea3c1b5c30b
(chinese-gbk, gbk, cp936, windows-936): New
Dave Love <fx@gnu.org>
parents:
88709
diff
changeset
|
218 ;;; Chinese GBK |
2ea3c1b5c30b
(chinese-gbk, gbk, cp936, windows-936): New
Dave Love <fx@gnu.org>
parents:
88709
diff
changeset
|
219 |
2ea3c1b5c30b
(chinese-gbk, gbk, cp936, windows-936): New
Dave Love <fx@gnu.org>
parents:
88709
diff
changeset
|
220 (define-coding-system 'chinese-gbk |
2ea3c1b5c30b
(chinese-gbk, gbk, cp936, windows-936): New
Dave Love <fx@gnu.org>
parents:
88709
diff
changeset
|
221 "GBK encoding for Chinese (MIME:GBK)." |
2ea3c1b5c30b
(chinese-gbk, gbk, cp936, windows-936): New
Dave Love <fx@gnu.org>
parents:
88709
diff
changeset
|
222 :coding-type 'charset |
2ea3c1b5c30b
(chinese-gbk, gbk, cp936, windows-936): New
Dave Love <fx@gnu.org>
parents:
88709
diff
changeset
|
223 :mnemonic ?c |
90003
0e9a7c1a0b8e
(chinese-gbk): Include ascii in
Kenichi Handa <handa@m17n.org>
parents:
89943
diff
changeset
|
224 :charset-list '(ascii chinese-gbk) |
88764
2ea3c1b5c30b
(chinese-gbk, gbk, cp936, windows-936): New
Dave Love <fx@gnu.org>
parents:
88709
diff
changeset
|
225 :mime-charset 'gbk) |
2ea3c1b5c30b
(chinese-gbk, gbk, cp936, windows-936): New
Dave Love <fx@gnu.org>
parents:
88709
diff
changeset
|
226 (define-coding-system-alias 'gbk 'chinese-gbk) |
2ea3c1b5c30b
(chinese-gbk, gbk, cp936, windows-936): New
Dave Love <fx@gnu.org>
parents:
88709
diff
changeset
|
227 (define-coding-system-alias 'cp936 'chinese-gbk) |
2ea3c1b5c30b
(chinese-gbk, gbk, cp936, windows-936): New
Dave Love <fx@gnu.org>
parents:
88709
diff
changeset
|
228 (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
|
229 |
2ea3c1b5c30b
(chinese-gbk, gbk, cp936, windows-936): New
Dave Love <fx@gnu.org>
parents:
88709
diff
changeset
|
230 (set-language-info-alist |
2ea3c1b5c30b
(chinese-gbk, gbk, cp936, windows-936): New
Dave Love <fx@gnu.org>
parents:
88709
diff
changeset
|
231 "Chinese-GBK" '((charset chinese-gbk) |
94952
09277c117521
("Chinese-GB", "Chinese-BIG5")
Kenichi Handa <handa@m17n.org>
parents:
94665
diff
changeset
|
232 (iso639-language . zh) |
89163 | 233 (coding-system chinese-gbk) |
234 (coding-priority gbk iso-2022-cn chinese-big5 | |
235 chinese-iso-8bit) ; fixme? | |
90325
9e9c44bc96d6
("Chinese-BIG5"): Set ctext-non-standard-encodings property to
Kenichi Handa <handa@m17n.org>
parents:
90211
diff
changeset
|
236 (ctext-non-standard-encodings "gbk-0") |
89163 | 237 (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
|
238 (sample-text . "Chinese ($BCfJ8(B,$BIaDL$A;0(B,$A::So(B) $(D95$B9%(B") |
89163 | 239 (features china-util) |
90687
918439636cee
("Chinese-GBK"): Add tutorial.
Kenichi Handa <handa@m17n.org>
parents:
90325
diff
changeset
|
240 (documentation . "Support for Chinese GBK character set.") |
918439636cee
("Chinese-GBK"): Add tutorial.
Kenichi Handa <handa@m17n.org>
parents:
90325
diff
changeset
|
241 (tutorial . "TUTORIAL.cn")) |
88764
2ea3c1b5c30b
(chinese-gbk, gbk, cp936, windows-936): New
Dave Love <fx@gnu.org>
parents:
88709
diff
changeset
|
242 '("Chinese")) |
2ea3c1b5c30b
(chinese-gbk, gbk, cp936, windows-936): New
Dave Love <fx@gnu.org>
parents:
88709
diff
changeset
|
243 |
89163 | 244 ;;; Chinese GB18030 |
245 | |
246 (define-coding-system 'chinese-gb18030 | |
247 "GB18030 encoding for Chinese (MIME:GB18030)." | |
248 :coding-type 'charset | |
249 :mnemonic ?c | |
89674
481e76f32323
(chinese-gb18030): Fix :charset-list.
Kenichi Handa <handa@m17n.org>
parents:
89483
diff
changeset
|
250 :charset-list '(ascii gb18030-2-byte |
481e76f32323
(chinese-gb18030): Fix :charset-list.
Kenichi Handa <handa@m17n.org>
parents:
89483
diff
changeset
|
251 gb18030-4-byte-bmp gb18030-4-byte-smp |
481e76f32323
(chinese-gb18030): Fix :charset-list.
Kenichi Handa <handa@m17n.org>
parents:
89483
diff
changeset
|
252 gb18030-4-byte-ext-1 gb18030-4-byte-ext-2) |
89483 | 253 :mime-charset 'gb18030) |
254 | |
89163 | 255 (define-coding-system-alias 'gb18030 'chinese-gb18030) |
256 | |
257 (set-language-info-alist | |
89168 | 258 "Chinese-GB18030" '((charset gb18030) |
94952
09277c117521
("Chinese-GB", "Chinese-BIG5")
Kenichi Handa <handa@m17n.org>
parents:
94665
diff
changeset
|
259 (iso639-language . zh) |
89163 | 260 (coding-system chinese-gb18030) |
261 (coding-priority gb18030 gbk iso-2022-cn chinese-big5 | |
262 chinese-iso-8bit) ; fixme? | |
263 (input-method . "chinese-py-punct") ; fixme? | |
90687
918439636cee
("Chinese-GBK"): Add tutorial.
Kenichi Handa <handa@m17n.org>
parents:
90325
diff
changeset
|
264 (sample-text . "Chinese ($BCfJ8(B,$BIaDL$A;0(B,$A::So(B) $(D0_$B9%(B") |
89163 | 265 (features china-util) |
266 (documentation | |
90687
918439636cee
("Chinese-GBK"): Add tutorial.
Kenichi Handa <handa@m17n.org>
parents:
90325
diff
changeset
|
267 . "Support for Chinese GB18030 character set.") |
918439636cee
("Chinese-GBK"): Add tutorial.
Kenichi Handa <handa@m17n.org>
parents:
90325
diff
changeset
|
268 (tutorial . "TUTORIAL.cn")) |
89163 | 269 '("Chinese")) |
270 | |
271 ;; Fixme: add HKSCS | |
88668 | 272 |
33778 | 273 (provide 'chinese) |
274 | |
93975
1e3a407766b9
Fix up comment convention on the arch-tag lines.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
91327
diff
changeset
|
275 ;; arch-tag: b82fcf7a-84f6-4e0b-b38c-1742dac0e09f |
17052 | 276 ;;; chinese.el ends here |