Mercurial > emacs
annotate lisp/language/chinese.el @ 112448:9e4388bac77b
* etc/images/README: Add 2011 to copyright years for (un)checked.xpm.
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Sun, 23 Jan 2011 17:30:35 -0800 |
parents | ef719132ddfa |
children |
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 |
112218
376148b31b5e
Add 2011 to FSF/AIST copyright years.
Glenn Morris <rgm@gnu.org>
parents:
106815
diff
changeset
|
3 ;; Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 |
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, |
112218
376148b31b5e
Add 2011 to FSF/AIST copyright years.
Glenn Morris <rgm@gnu.org>
parents:
106815
diff
changeset
|
6 ;; 2005, 2006, 2007, 2008, 2009, 2010, 2011 |
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) |
103631
37ec2c241d37
("Chinese-GB", "Chinese-BIG5")
Kenichi Handa <handa@m17n.org>
parents:
102786
diff
changeset
|
110 (setup-function . (lambda () |
37ec2c241d37
("Chinese-GB", "Chinese-BIG5")
Kenichi Handa <handa@m17n.org>
parents:
102786
diff
changeset
|
111 (use-cjk-char-width-table 'zh_CN))) |
37ec2c241d37
("Chinese-GB", "Chinese-BIG5")
Kenichi Handa <handa@m17n.org>
parents:
102786
diff
changeset
|
112 (exit-function . use-default-char-width-table) |
20746 | 113 (coding-system chinese-iso-8bit iso-2022-cn chinese-hz) |
114 (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
|
115 (input-method . "chinese-py-punct") |
7a010b8c0d99
("LANUGAGE-ENVIRONMENT"): Delete property setup-function or change
Kenichi Handa <handa@m17n.org>
parents:
20746
diff
changeset
|
116 (features china-util) |
17765
9c4845e8101d
Make functions setup-LANGUAGE-environment
Kenichi Handa <handa@m17n.org>
parents:
17084
diff
changeset
|
117 (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
|
118 (documentation . "Support for Chinese GB2312 character set.") |
ac1f8a6c8a38
("Chinese-GB", "Chinese-BIG5"): Set up for
Eli Zaretskii <eliz@gnu.org>
parents:
52401
diff
changeset
|
119 (tutorial . "TUTORIAL.cn")) |
20746 | 120 '("Chinese")) |
17052 | 121 |
122 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
123 ;; Chinese BIG5 (traditional) | |
124 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
125 | |
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 (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
|
127 "BIG5 8-bit encoding for Chinese (MIME:Big5)" |
102786
0313327a13eb
(chinese-big5): Change type to `big5'.
Kenichi Handa <handa@m17n.org>
parents:
100908
diff
changeset
|
128 :coding-type 'big5 |
88414
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42150
diff
changeset
|
129 :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
|
130 :charset-list '(ascii big5) |
88513 | 131 :mime-charset 'big5) |
17052 | 132 |
18520
383d11185239
Swap args to define-coding-system-alias.
Richard M. Stallman <rms@gnu.org>
parents:
18377
diff
changeset
|
133 (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
|
134 (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
|
135 (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
|
136 |
17052 | 137 (set-language-info-alist |
22983
7a010b8c0d99
("LANUGAGE-ENVIRONMENT"): Delete property setup-function or change
Kenichi Handa <handa@m17n.org>
parents:
20746
diff
changeset
|
138 "Chinese-BIG5" '((charset chinese-big5-1 chinese-big5-2) |
94952
09277c117521
("Chinese-GB", "Chinese-BIG5")
Kenichi Handa <handa@m17n.org>
parents:
94665
diff
changeset
|
139 (iso639-language . zh) |
103631
37ec2c241d37
("Chinese-GB", "Chinese-BIG5")
Kenichi Handa <handa@m17n.org>
parents:
102786
diff
changeset
|
140 (setup-function . (lambda () |
37ec2c241d37
("Chinese-GB", "Chinese-BIG5")
Kenichi Handa <handa@m17n.org>
parents:
102786
diff
changeset
|
141 (use-cjk-char-width-table 'zh_HK))) |
37ec2c241d37
("Chinese-GB", "Chinese-BIG5")
Kenichi Handa <handa@m17n.org>
parents:
102786
diff
changeset
|
142 (exit-function . use-default-char-width-table) |
20746 | 143 (coding-system chinese-big5 chinese-iso-7bit) |
144 (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
|
145 (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
|
146 (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
|
147 (features china-util) |
95027 | 148 (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
|
149 (documentation . "Support for Chinese Big5 character set.") |
ac1f8a6c8a38
("Chinese-GB", "Chinese-BIG5"): Set up for
Eli Zaretskii <eliz@gnu.org>
parents:
52401
diff
changeset
|
150 (tutorial . "TUTORIAL.zh")) |
20746 | 151 '("Chinese")) |
17052 | 152 |
89392
9d8a1dba6b31
(chinese-big5-hkscs): New coding system.
Dave Love <fx@gnu.org>
parents:
89168
diff
changeset
|
153 (define-coding-system 'chinese-big5-hkscs |
9d8a1dba6b31
(chinese-big5-hkscs): New coding system.
Dave Love <fx@gnu.org>
parents:
89168
diff
changeset
|
154 "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
|
155 :coding-type 'charset |
9d8a1dba6b31
(chinese-big5-hkscs): New coding system.
Dave Love <fx@gnu.org>
parents:
89168
diff
changeset
|
156 :mnemonic ?B |
9d8a1dba6b31
(chinese-big5-hkscs): New coding system.
Dave Love <fx@gnu.org>
parents:
89168
diff
changeset
|
157 :charset-list '(ascii big5-hkscs) |
9d8a1dba6b31
(chinese-big5-hkscs): New coding system.
Dave Love <fx@gnu.org>
parents:
89168
diff
changeset
|
158 :mime-charset 'big5-hkscs) |
9d8a1dba6b31
(chinese-big5-hkscs): New coding system.
Dave Love <fx@gnu.org>
parents:
89168
diff
changeset
|
159 (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
|
160 (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
|
161 |
17052 | 162 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
163 ;; Chinese CNS11643 (traditional) | |
164 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
165 | |
88414
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42150
diff
changeset
|
166 (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
|
167 "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
|
168 :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
|
169 :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
|
170 :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
|
171 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
|
172 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
|
173 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
|
174 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
|
175 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
|
176 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
|
177 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
|
178 :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
|
179 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
|
180 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
|
181 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
|
182 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
|
183 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
|
184 chinese-cns11643-7) nil] |
88513 | 185 :mime-charset 'euc-tw) |
42150
35e8e47e376b
Implementing euc-tw encoding.
Werner LEMBERG <wl@gnu.org>
parents:
38414
diff
changeset
|
186 |
35e8e47e376b
Implementing euc-tw encoding.
Werner LEMBERG <wl@gnu.org>
parents:
38414
diff
changeset
|
187 (define-coding-system-alias 'euc-taiwan 'euc-tw) |
35e8e47e376b
Implementing euc-tw encoding.
Werner LEMBERG <wl@gnu.org>
parents:
38414
diff
changeset
|
188 |
17052 | 189 (set-language-info-alist |
22983
7a010b8c0d99
("LANUGAGE-ENVIRONMENT"): Delete property setup-function or change
Kenichi Handa <handa@m17n.org>
parents:
20746
diff
changeset
|
190 "Chinese-CNS" '((charset chinese-cns11643-1 chinese-cns11643-2 |
20746 | 191 chinese-cns11643-3 chinese-cns11643-4 |
192 chinese-cns11643-5 chinese-cns11643-6 | |
193 chinese-cns11643-7) | |
94952
09277c117521
("Chinese-GB", "Chinese-BIG5")
Kenichi Handa <handa@m17n.org>
parents:
94665
diff
changeset
|
194 (iso639-language . zh) |
103631
37ec2c241d37
("Chinese-GB", "Chinese-BIG5")
Kenichi Handa <handa@m17n.org>
parents:
102786
diff
changeset
|
195 (setup-function . (lambda () |
37ec2c241d37
("Chinese-GB", "Chinese-BIG5")
Kenichi Handa <handa@m17n.org>
parents:
102786
diff
changeset
|
196 (use-cjk-char-width-table 'zh_TW))) |
37ec2c241d37
("Chinese-GB", "Chinese-BIG5")
Kenichi Handa <handa@m17n.org>
parents:
102786
diff
changeset
|
197 (exit-function . use-default-char-width-table) |
42150
35e8e47e376b
Implementing euc-tw encoding.
Werner LEMBERG <wl@gnu.org>
parents:
38414
diff
changeset
|
198 (coding-system iso-2022-cn euc-tw) |
35e8e47e376b
Implementing euc-tw encoding.
Werner LEMBERG <wl@gnu.org>
parents:
38414
diff
changeset
|
199 (coding-priority iso-2022-cn euc-tw chinese-big5 |
35e8e47e376b
Implementing euc-tw encoding.
Werner LEMBERG <wl@gnu.org>
parents:
38414
diff
changeset
|
200 chinese-iso-8bit) |
22983
7a010b8c0d99
("LANUGAGE-ENVIRONMENT"): Delete property setup-function or change
Kenichi Handa <handa@m17n.org>
parents:
20746
diff
changeset
|
201 (features china-util) |
7a010b8c0d99
("LANUGAGE-ENVIRONMENT"): Delete property setup-function or change
Kenichi Handa <handa@m17n.org>
parents:
20746
diff
changeset
|
202 (input-method . "chinese-cns-quick") |
88709 | 203 ;; Fixme: presumably it won't accept big5 now. |
42150
35e8e47e376b
Implementing euc-tw encoding.
Werner LEMBERG <wl@gnu.org>
parents:
38414
diff
changeset
|
204 (documentation . "\ |
49084 | 205 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
|
206 accepts Big5 for input also (which is then converted to CNS).")) |
20746 | 207 '("Chinese")) |
17052 | 208 |
49084 | 209 (set-language-info-alist |
210 "Chinese-EUC-TW" '((charset chinese-cns11643-1 chinese-cns11643-2 | |
211 chinese-cns11643-3 chinese-cns11643-4 | |
212 chinese-cns11643-5 chinese-cns11643-6 | |
213 chinese-cns11643-7 chinese-big5-1 chinese-big5-2) | |
94952
09277c117521
("Chinese-GB", "Chinese-BIG5")
Kenichi Handa <handa@m17n.org>
parents:
94665
diff
changeset
|
214 (iso639-language . zh) |
103631
37ec2c241d37
("Chinese-GB", "Chinese-BIG5")
Kenichi Handa <handa@m17n.org>
parents:
102786
diff
changeset
|
215 (setup-function . (lambda () |
37ec2c241d37
("Chinese-GB", "Chinese-BIG5")
Kenichi Handa <handa@m17n.org>
parents:
102786
diff
changeset
|
216 (use-cjk-char-width-table 'zh_TW))) |
37ec2c241d37
("Chinese-GB", "Chinese-BIG5")
Kenichi Handa <handa@m17n.org>
parents:
102786
diff
changeset
|
217 (exit-function . use-default-char-width-table) |
49084 | 218 (coding-system euc-tw iso-2022-cn) |
219 (coding-priority euc-tw chinese-big5 iso-2022-cn | |
220 chinese-iso-8bit) | |
221 (features china-util) | |
222 (input-method . "chinese-cns-quick") | |
223 (documentation . "\ | |
224 Support for Chinese, prefering the EUC-TW character set. Note that | |
225 the EUC-TW coding system accepts Big5 for input also (which is then | |
226 converted to CNS).")) | |
227 '("Chinese")) | |
228 | |
89483 | 229 |
88764
2ea3c1b5c30b
(chinese-gbk, gbk, cp936, windows-936): New
Dave Love <fx@gnu.org>
parents:
88709
diff
changeset
|
230 ;;; Chinese GBK |
2ea3c1b5c30b
(chinese-gbk, gbk, cp936, windows-936): New
Dave Love <fx@gnu.org>
parents:
88709
diff
changeset
|
231 |
2ea3c1b5c30b
(chinese-gbk, gbk, cp936, windows-936): New
Dave Love <fx@gnu.org>
parents:
88709
diff
changeset
|
232 (define-coding-system 'chinese-gbk |
2ea3c1b5c30b
(chinese-gbk, gbk, cp936, windows-936): New
Dave Love <fx@gnu.org>
parents:
88709
diff
changeset
|
233 "GBK encoding for Chinese (MIME:GBK)." |
2ea3c1b5c30b
(chinese-gbk, gbk, cp936, windows-936): New
Dave Love <fx@gnu.org>
parents:
88709
diff
changeset
|
234 :coding-type 'charset |
2ea3c1b5c30b
(chinese-gbk, gbk, cp936, windows-936): New
Dave Love <fx@gnu.org>
parents:
88709
diff
changeset
|
235 :mnemonic ?c |
90003
0e9a7c1a0b8e
(chinese-gbk): Include ascii in
Kenichi Handa <handa@m17n.org>
parents:
89943
diff
changeset
|
236 :charset-list '(ascii chinese-gbk) |
88764
2ea3c1b5c30b
(chinese-gbk, gbk, cp936, windows-936): New
Dave Love <fx@gnu.org>
parents:
88709
diff
changeset
|
237 :mime-charset 'gbk) |
2ea3c1b5c30b
(chinese-gbk, gbk, cp936, windows-936): New
Dave Love <fx@gnu.org>
parents:
88709
diff
changeset
|
238 (define-coding-system-alias 'gbk 'chinese-gbk) |
2ea3c1b5c30b
(chinese-gbk, gbk, cp936, windows-936): New
Dave Love <fx@gnu.org>
parents:
88709
diff
changeset
|
239 (define-coding-system-alias 'cp936 'chinese-gbk) |
2ea3c1b5c30b
(chinese-gbk, gbk, cp936, windows-936): New
Dave Love <fx@gnu.org>
parents:
88709
diff
changeset
|
240 (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
|
241 |
2ea3c1b5c30b
(chinese-gbk, gbk, cp936, windows-936): New
Dave Love <fx@gnu.org>
parents:
88709
diff
changeset
|
242 (set-language-info-alist |
2ea3c1b5c30b
(chinese-gbk, gbk, cp936, windows-936): New
Dave Love <fx@gnu.org>
parents:
88709
diff
changeset
|
243 "Chinese-GBK" '((charset chinese-gbk) |
94952
09277c117521
("Chinese-GB", "Chinese-BIG5")
Kenichi Handa <handa@m17n.org>
parents:
94665
diff
changeset
|
244 (iso639-language . zh) |
103631
37ec2c241d37
("Chinese-GB", "Chinese-BIG5")
Kenichi Handa <handa@m17n.org>
parents:
102786
diff
changeset
|
245 (setup-function . (lambda () |
37ec2c241d37
("Chinese-GB", "Chinese-BIG5")
Kenichi Handa <handa@m17n.org>
parents:
102786
diff
changeset
|
246 (use-cjk-char-width-table 'zh_CN))) |
37ec2c241d37
("Chinese-GB", "Chinese-BIG5")
Kenichi Handa <handa@m17n.org>
parents:
102786
diff
changeset
|
247 (exit-function . use-default-char-width-table) |
89163 | 248 (coding-system chinese-gbk) |
249 (coding-priority gbk iso-2022-cn chinese-big5 | |
250 chinese-iso-8bit) ; fixme? | |
90325
9e9c44bc96d6
("Chinese-BIG5"): Set ctext-non-standard-encodings property to
Kenichi Handa <handa@m17n.org>
parents:
90211
diff
changeset
|
251 (ctext-non-standard-encodings "gbk-0") |
89163 | 252 (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
|
253 (sample-text . "Chinese ($BCfJ8(B,$BIaDL$A;0(B,$A::So(B) $(D95$B9%(B") |
89163 | 254 (features china-util) |
90687
918439636cee
("Chinese-GBK"): Add tutorial.
Kenichi Handa <handa@m17n.org>
parents:
90325
diff
changeset
|
255 (documentation . "Support for Chinese GBK character set.") |
918439636cee
("Chinese-GBK"): Add tutorial.
Kenichi Handa <handa@m17n.org>
parents:
90325
diff
changeset
|
256 (tutorial . "TUTORIAL.cn")) |
88764
2ea3c1b5c30b
(chinese-gbk, gbk, cp936, windows-936): New
Dave Love <fx@gnu.org>
parents:
88709
diff
changeset
|
257 '("Chinese")) |
2ea3c1b5c30b
(chinese-gbk, gbk, cp936, windows-936): New
Dave Love <fx@gnu.org>
parents:
88709
diff
changeset
|
258 |
89163 | 259 ;;; Chinese GB18030 |
260 | |
261 (define-coding-system 'chinese-gb18030 | |
262 "GB18030 encoding for Chinese (MIME:GB18030)." | |
263 :coding-type 'charset | |
264 :mnemonic ?c | |
89674
481e76f32323
(chinese-gb18030): Fix :charset-list.
Kenichi Handa <handa@m17n.org>
parents:
89483
diff
changeset
|
265 :charset-list '(ascii gb18030-2-byte |
481e76f32323
(chinese-gb18030): Fix :charset-list.
Kenichi Handa <handa@m17n.org>
parents:
89483
diff
changeset
|
266 gb18030-4-byte-bmp gb18030-4-byte-smp |
481e76f32323
(chinese-gb18030): Fix :charset-list.
Kenichi Handa <handa@m17n.org>
parents:
89483
diff
changeset
|
267 gb18030-4-byte-ext-1 gb18030-4-byte-ext-2) |
89483 | 268 :mime-charset 'gb18030) |
269 | |
89163 | 270 (define-coding-system-alias 'gb18030 'chinese-gb18030) |
271 | |
272 (set-language-info-alist | |
89168 | 273 "Chinese-GB18030" '((charset gb18030) |
94952
09277c117521
("Chinese-GB", "Chinese-BIG5")
Kenichi Handa <handa@m17n.org>
parents:
94665
diff
changeset
|
274 (iso639-language . zh) |
89163 | 275 (coding-system chinese-gb18030) |
276 (coding-priority gb18030 gbk iso-2022-cn chinese-big5 | |
277 chinese-iso-8bit) ; fixme? | |
278 (input-method . "chinese-py-punct") ; fixme? | |
90687
918439636cee
("Chinese-GBK"): Add tutorial.
Kenichi Handa <handa@m17n.org>
parents:
90325
diff
changeset
|
279 (sample-text . "Chinese ($BCfJ8(B,$BIaDL$A;0(B,$A::So(B) $(D0_$B9%(B") |
89163 | 280 (features china-util) |
281 (documentation | |
90687
918439636cee
("Chinese-GBK"): Add tutorial.
Kenichi Handa <handa@m17n.org>
parents:
90325
diff
changeset
|
282 . "Support for Chinese GB18030 character set.") |
918439636cee
("Chinese-GBK"): Add tutorial.
Kenichi Handa <handa@m17n.org>
parents:
90325
diff
changeset
|
283 (tutorial . "TUTORIAL.cn")) |
89163 | 284 '("Chinese")) |
285 | |
286 ;; Fixme: add HKSCS | |
88668 | 287 |
33778 | 288 (provide 'chinese) |
289 | |
17052 | 290 ;;; chinese.el ends here |