Mercurial > emacs
annotate lisp/language/cyrillic.el @ 97774:cf6404e22e31
*** empty log message ***
author | Eli Zaretskii <eliz@gnu.org> |
---|---|
date | Wed, 27 Aug 2008 20:21:31 +0000 |
parents | 55b7f25d920a |
children | a9dc0e7c3f2b |
rev | line source |
---|---|
38414
67b464da13ec
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
37112
diff
changeset
|
1 ;;; cyrillic.el --- support for Cyrillic -*- coding: iso-2022-7bit; -*- |
17052 | 2 |
79711 | 3 ;; Copyright (C) 1997, 1998, 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 |
46500 | 13 ;; Author: Kenichi Handa <handa@etl.go.jp> |
14 ;; Keywords: multilingual, Cyrillic, i18n | |
17052 | 15 |
16 ;; This file is part of GNU Emacs. | |
17 | |
94665
55b7f25d920a
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
18 ;; GNU Emacs is free software: you can redistribute it and/or modify |
17052 | 19 ;; 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
|
20 ;; 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
|
21 ;; (at your option) any later version. |
17052 | 22 |
23 ;; GNU Emacs is distributed in the hope that it will be useful, | |
24 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
25 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
26 ;; GNU General Public License for more details. | |
27 | |
28 ;; 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
|
29 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. |
17052 | 30 |
31 ;;; Commentary: | |
32 | |
46500 | 33 ;; The character set ISO8859-5 is supported. KOI-8 and ALTERNATIVNYJ |
34 ;; are converted to Unicode internally. See | |
35 ;; <URL:http://www.ecma.ch/ecma1/STAND/ECMA-113.HTM>. For more info | |
36 ;; on Cyrillic charsets, see | |
37 ;; <URL:http://czyborra.com/charsets/cyrillic.html>. The KOI and | |
38 ;; Alternativnyj coding systems should live in code-pages.el, but | |
39 ;; they've always been preloaded and the coding system autoload | |
40 ;; mechanism didn't get accepted, so they have to stay here and | |
41 ;; duplicate code-pages stuff. | |
42 | |
43 ;; Note that 8859-5 maps directly onto the Unicode Cyrillic block, | |
44 ;; apart from codepoints 160 (NBSP, c.f. U+0400), 173 (soft hyphen, | |
45 ;; c.f. U+04OD) and 253 (section sign, c.f U+045D). The KOI-8 and | |
46 ;; Alternativnyj coding systems encode both 8859-5 and Unicode. | |
47 ;; ucs-tables.el provides unification for cyrillic-iso-8bit. | |
48 | |
47702
e0786a68f34e
(ccl-decode-koi8): Refer to
Kenichi Handa <handa@m17n.org>
parents:
47416
diff
changeset
|
49 ;; Customizing `utf-fragment-on-decoding' allows decoding characters |
46500 | 50 ;; from KOI and Alternativnyj into 8859-5 where that's possible. |
51 ;; cyrillic-iso8859-5 characters take half as much space in the buffer | |
52 ;; as the mule-unicode-0100-24ff equivalents, though that's probably | |
53 ;; not normally a big deal. | |
17052 | 54 |
55 ;;; Code: | |
56 | |
19451
933bea774c3c
Make describe-cyrillic-environment-map and
Kenichi Handa <handa@m17n.org>
parents:
18520
diff
changeset
|
57 ;; Cyrillic (general) |
933bea774c3c
Make describe-cyrillic-environment-map and
Kenichi Handa <handa@m17n.org>
parents:
18520
diff
changeset
|
58 |
46500 | 59 ;; ISO-8859-5 stuff |
17085
4dafa5431293
Change coding system name koi8 to koi8-r.
Kenichi Handa <handa@m17n.org>
parents:
17071
diff
changeset
|
60 |
88414
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42152
diff
changeset
|
61 (define-coding-system 'cyrillic-iso-8bit |
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42152
diff
changeset
|
62 "ISO 2022 based 8-bit encoding for Cyrillic script (MIME:ISO-8859-5)." |
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42152
diff
changeset
|
63 :coding-type 'charset |
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42152
diff
changeset
|
64 :mnemonic ?5 |
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42152
diff
changeset
|
65 :charset-list '(iso-8859-5) |
88512
1e2fb9a9f29c
(cyrillic-iso-8bit, cyrillic-koi8)
Dave Love <fx@gnu.org>
parents:
88414
diff
changeset
|
66 :mime-charset 'iso-8859-5) |
17052 | 67 |
18520
383d11185239
Swap args to define-coding-system-alias.
Richard M. Stallman <rms@gnu.org>
parents:
18454
diff
changeset
|
68 (define-coding-system-alias 'iso-8859-5 'cyrillic-iso-8bit) |
18308 | 69 |
19451
933bea774c3c
Make describe-cyrillic-environment-map and
Kenichi Handa <handa@m17n.org>
parents:
18520
diff
changeset
|
70 (set-language-info-alist |
88414
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42152
diff
changeset
|
71 "Cyrillic-ISO" '((charset iso-8859-5) |
20745 | 72 (coding-system cyrillic-iso-8bit) |
73 (coding-priority cyrillic-iso-8bit) | |
46500 | 74 (input-method . "cyrillic-yawerty") ; fixme |
88414
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42152
diff
changeset
|
75 (nonascii-translation . iso-8859-5) |
22983
7a010b8c0d99
("LANUGAGE-ENVIRONMENT"): Delete property setup-function or change
Kenichi Handa <handa@m17n.org>
parents:
22881
diff
changeset
|
76 (unibyte-display . cyrillic-iso-8bit) |
7a010b8c0d99
("LANUGAGE-ENVIRONMENT"): Delete property setup-function or change
Kenichi Handa <handa@m17n.org>
parents:
22881
diff
changeset
|
77 (features cyril-util) |
19451
933bea774c3c
Make describe-cyrillic-environment-map and
Kenichi Handa <handa@m17n.org>
parents:
18520
diff
changeset
|
78 (sample-text . "Russian (,L@caaZXY(B) ,L7T`PRabRcYbU(B!") |
20745 | 79 (documentation . "Support for Cyrillic ISO-8859-5.")) |
80 '("Cyrillic")) | |
19451
933bea774c3c
Make describe-cyrillic-environment-map and
Kenichi Handa <handa@m17n.org>
parents:
18520
diff
changeset
|
81 |
46500 | 82 ;; KOI-8R stuff |
17085
4dafa5431293
Change coding system name koi8 to koi8-r.
Kenichi Handa <handa@m17n.org>
parents:
17071
diff
changeset
|
83 |
88414
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42152
diff
changeset
|
84 (define-coding-system 'cyrillic-koi8 |
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42152
diff
changeset
|
85 "KOI8 8-bit encoding for Cyrillic (MIME: KOI8-R)." |
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42152
diff
changeset
|
86 :coding-type 'charset |
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42152
diff
changeset
|
87 ;; We used to use ?K. It is true that ?K is more strictly correct, |
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42152
diff
changeset
|
88 ;; but it is also used for Korean. So people who use koi8 for |
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42152
diff
changeset
|
89 ;; languages other than Russian will have to forgive us. |
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42152
diff
changeset
|
90 :mnemonic ?R |
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42152
diff
changeset
|
91 :charset-list '(koi8) |
88512
1e2fb9a9f29c
(cyrillic-iso-8bit, cyrillic-koi8)
Dave Love <fx@gnu.org>
parents:
88414
diff
changeset
|
92 :mime-charset 'koi8-r) |
17085
4dafa5431293
Change coding system name koi8 to koi8-r.
Kenichi Handa <handa@m17n.org>
parents:
17071
diff
changeset
|
93 |
18520
383d11185239
Swap args to define-coding-system-alias.
Richard M. Stallman <rms@gnu.org>
parents:
18454
diff
changeset
|
94 (define-coding-system-alias 'koi8-r 'cyrillic-koi8) |
383d11185239
Swap args to define-coding-system-alias.
Richard M. Stallman <rms@gnu.org>
parents:
18454
diff
changeset
|
95 (define-coding-system-alias 'koi8 'cyrillic-koi8) |
46500 | 96 (define-coding-system-alias 'cp878 'cyrillic-koi8) |
17085
4dafa5431293
Change coding system name koi8 to koi8-r.
Kenichi Handa <handa@m17n.org>
parents:
17071
diff
changeset
|
97 |
19451
933bea774c3c
Make describe-cyrillic-environment-map and
Kenichi Handa <handa@m17n.org>
parents:
18520
diff
changeset
|
98 (set-language-info-alist |
88414
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42152
diff
changeset
|
99 "Cyrillic-KOI8" `((charset koi8) |
20745 | 100 (coding-system cyrillic-koi8) |
46500 | 101 (coding-priority cyrillic-koi8 cyrillic-iso-8bit) |
56710
e6d92cac8e9b
("Cyrillic-KOI8"): Fix typo.
Kenichi Handa <handa@m17n.org>
parents:
56709
diff
changeset
|
102 (ctext-non-standard-encodings "koi8-r") |
88414
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42152
diff
changeset
|
103 (nonascii-translation . koi8) |
49795
0f184780c237
("Cyrillic-KOI8"): Fix input-method.
Dave Love <fx@gnu.org>
parents:
48832
diff
changeset
|
104 (input-method . "russian-typewriter") |
22983
7a010b8c0d99
("LANUGAGE-ENVIRONMENT"): Delete property setup-function or change
Kenichi Handa <handa@m17n.org>
parents:
22881
diff
changeset
|
105 (features cyril-util) |
7a010b8c0d99
("LANUGAGE-ENVIRONMENT"): Delete property setup-function or change
Kenichi Handa <handa@m17n.org>
parents:
22881
diff
changeset
|
106 (unibyte-display . cyrillic-koi8) |
19451
933bea774c3c
Make describe-cyrillic-environment-map and
Kenichi Handa <handa@m17n.org>
parents:
18520
diff
changeset
|
107 (sample-text . "Russian (,L@caaZXY(B) ,L7T`PRabRcYbU(B!") |
22881
e0e17bbd8e6c
(cyrillic-koi8-r-decode-table): New
Kenichi Handa <handa@m17n.org>
parents:
21663
diff
changeset
|
108 (documentation . "Support for Cyrillic KOI8-R.")) |
20745 | 109 '("Cyrillic")) |
19451
933bea774c3c
Make describe-cyrillic-environment-map and
Kenichi Handa <handa@m17n.org>
parents:
18520
diff
changeset
|
110 |
49795
0f184780c237
("Cyrillic-KOI8"): Fix input-method.
Dave Love <fx@gnu.org>
parents:
48832
diff
changeset
|
111 (set-language-info-alist |
0f184780c237
("Cyrillic-KOI8"): Fix input-method.
Dave Love <fx@gnu.org>
parents:
48832
diff
changeset
|
112 "Russian" `((charset cyrillic-iso8859-5) |
0f184780c237
("Cyrillic-KOI8"): Fix input-method.
Dave Love <fx@gnu.org>
parents:
48832
diff
changeset
|
113 (nonascii-translation |
0f184780c237
("Cyrillic-KOI8"): Fix input-method.
Dave Love <fx@gnu.org>
parents:
48832
diff
changeset
|
114 . ,(get 'cyrillic-koi8-r-nonascii-translation-table |
0f184780c237
("Cyrillic-KOI8"): Fix input-method.
Dave Love <fx@gnu.org>
parents:
48832
diff
changeset
|
115 'translation-table)) |
0f184780c237
("Cyrillic-KOI8"): Fix input-method.
Dave Love <fx@gnu.org>
parents:
48832
diff
changeset
|
116 (coding-system cyrillic-koi8) |
0f184780c237
("Cyrillic-KOI8"): Fix input-method.
Dave Love <fx@gnu.org>
parents:
48832
diff
changeset
|
117 (coding-priority cyrillic-koi8 cyrillic-iso-8bit) |
0f184780c237
("Cyrillic-KOI8"): Fix input-method.
Dave Love <fx@gnu.org>
parents:
48832
diff
changeset
|
118 (input-method . "russian-computer") |
0f184780c237
("Cyrillic-KOI8"): Fix input-method.
Dave Love <fx@gnu.org>
parents:
48832
diff
changeset
|
119 (features cyril-util) |
0f184780c237
("Cyrillic-KOI8"): Fix input-method.
Dave Love <fx@gnu.org>
parents:
48832
diff
changeset
|
120 (unibyte-display . cyrillic-koi8) |
0f184780c237
("Cyrillic-KOI8"): Fix input-method.
Dave Love <fx@gnu.org>
parents:
48832
diff
changeset
|
121 (sample-text . "Russian (,L@caaZXY(B) ,L7T`PRabRcYbU(B!") |
0f184780c237
("Cyrillic-KOI8"): Fix input-method.
Dave Love <fx@gnu.org>
parents:
48832
diff
changeset
|
122 (documentation . "\ |
0f184780c237
("Cyrillic-KOI8"): Fix input-method.
Dave Love <fx@gnu.org>
parents:
48832
diff
changeset
|
123 Support for Russian using koi8-r and the russian-computer input method.") |
0f184780c237
("Cyrillic-KOI8"): Fix input-method.
Dave Love <fx@gnu.org>
parents:
48832
diff
changeset
|
124 (tutorial . "TUTORIAL.ru")) |
0f184780c237
("Cyrillic-KOI8"): Fix input-method.
Dave Love <fx@gnu.org>
parents:
48832
diff
changeset
|
125 '("Cyrillic")) |
0f184780c237
("Cyrillic-KOI8"): Fix input-method.
Dave Love <fx@gnu.org>
parents:
48832
diff
changeset
|
126 |
89909 | 127 (define-coding-system 'koi8-u |
128 "KOI8-U 8-bit encoding for Cyrillic (MIME: KOI8-U)" | |
129 :coding-type 'charset | |
130 :mnemonic ?U | |
131 :charset-list '(koi8-u) | |
132 :mime-charset 'koi8-u) | |
46500 | 133 |
134 (set-language-info-alist | |
89909 | 135 "Ukrainian" `((charset koi8-u) |
136 (coding-system koi8-u) | |
47702
e0786a68f34e
(ccl-decode-koi8): Refer to
Kenichi Handa <handa@m17n.org>
parents:
47416
diff
changeset
|
137 (coding-priority koi8-u) |
89909 | 138 (nonascii-translation . koi8-u) |
46500 | 139 (input-method . "ukrainian-computer") |
47702
e0786a68f34e
(ccl-decode-koi8): Refer to
Kenichi Handa <handa@m17n.org>
parents:
47416
diff
changeset
|
140 (documentation |
e0786a68f34e
(ccl-decode-koi8): Refer to
Kenichi Handa <handa@m17n.org>
parents:
47416
diff
changeset
|
141 . "Support for Ukrainian with KOI8-U character set.")) |
46500 | 142 '("Cyrillic")) |
143 | |
144 ;;; ALTERNATIVNYJ stuff | |
17085
4dafa5431293
Change coding system name koi8 to koi8-r.
Kenichi Handa <handa@m17n.org>
parents:
17071
diff
changeset
|
145 |
88414
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42152
diff
changeset
|
146 (define-coding-system 'cyrillic-alternativnyj |
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42152
diff
changeset
|
147 "ALTERNATIVNYJ 8-bit encoding for Cyrillic." |
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42152
diff
changeset
|
148 :coding-type 'charset |
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42152
diff
changeset
|
149 :mnemonic ?A |
89204 | 150 :charset-list '(alternativnyj)) |
17085
4dafa5431293
Change coding system name koi8 to koi8-r.
Kenichi Handa <handa@m17n.org>
parents:
17071
diff
changeset
|
151 |
18520
383d11185239
Swap args to define-coding-system-alias.
Richard M. Stallman <rms@gnu.org>
parents:
18454
diff
changeset
|
152 (define-coding-system-alias 'alternativnyj 'cyrillic-alternativnyj) |
18308 | 153 |
17993
73869115ae0a
Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents:
17841
diff
changeset
|
154 (set-language-info-alist |
88414
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42152
diff
changeset
|
155 "Cyrillic-ALT" `((charset alternativnyj) |
20745 | 156 (coding-system cyrillic-alternativnyj) |
157 (coding-priority cyrillic-alternativnyj) | |
88414
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42152
diff
changeset
|
158 (nonascii-translation . alternativnyj) |
46500 | 159 (input-method . "russian-typewriter") |
22983
7a010b8c0d99
("LANUGAGE-ENVIRONMENT"): Delete property setup-function or change
Kenichi Handa <handa@m17n.org>
parents:
22881
diff
changeset
|
160 (features cyril-util) |
7a010b8c0d99
("LANUGAGE-ENVIRONMENT"): Delete property setup-function or change
Kenichi Handa <handa@m17n.org>
parents:
22881
diff
changeset
|
161 (unibyte-display . cyrillic-alternativnyj) |
19451
933bea774c3c
Make describe-cyrillic-environment-map and
Kenichi Handa <handa@m17n.org>
parents:
18520
diff
changeset
|
162 (sample-text . "Russian (,L@caaZXY(B) ,L7T`PRabRcYbU(B!") |
20745 | 163 (documentation . "Support for Cyrillic ALTERNATIVNYJ.")) |
164 '("Cyrillic")) | |
17052 | 165 |
89204 | 166 (define-coding-system 'cp866 |
167 "CP866 encoding for Cyrillic." | |
168 :coding-type 'charset | |
169 :mnemonic ?* | |
170 :charset-list '(ibm866) | |
171 :mime-charset 'cp866) | |
172 | |
88531
3080874809b6
(koi8-u, koi8-t, windows-1251, cp1125): New
Dave Love <fx@gnu.org>
parents:
88512
diff
changeset
|
173 (define-coding-system 'koi8-u |
3080874809b6
(koi8-u, koi8-t, windows-1251, cp1125): New
Dave Love <fx@gnu.org>
parents:
88512
diff
changeset
|
174 "KOI8-U 8-bit encoding for Cyrillic (MIME: KOI8-U)" |
3080874809b6
(koi8-u, koi8-t, windows-1251, cp1125): New
Dave Love <fx@gnu.org>
parents:
88512
diff
changeset
|
175 :coding-type 'charset |
3080874809b6
(koi8-u, koi8-t, windows-1251, cp1125): New
Dave Love <fx@gnu.org>
parents:
88512
diff
changeset
|
176 :mnemonic ?U |
3080874809b6
(koi8-u, koi8-t, windows-1251, cp1125): New
Dave Love <fx@gnu.org>
parents:
88512
diff
changeset
|
177 :charset-list '(koi8-u) |
3080874809b6
(koi8-u, koi8-t, windows-1251, cp1125): New
Dave Love <fx@gnu.org>
parents:
88512
diff
changeset
|
178 :mime-charset 'koi8-u) |
3080874809b6
(koi8-u, koi8-t, windows-1251, cp1125): New
Dave Love <fx@gnu.org>
parents:
88512
diff
changeset
|
179 |
3080874809b6
(koi8-u, koi8-t, windows-1251, cp1125): New
Dave Love <fx@gnu.org>
parents:
88512
diff
changeset
|
180 (define-coding-system 'koi8-t |
88766 | 181 "KOI8-T 8-bit encoding for Cyrillic" |
88531
3080874809b6
(koi8-u, koi8-t, windows-1251, cp1125): New
Dave Love <fx@gnu.org>
parents:
88512
diff
changeset
|
182 :coding-type 'charset |
3080874809b6
(koi8-u, koi8-t, windows-1251, cp1125): New
Dave Love <fx@gnu.org>
parents:
88512
diff
changeset
|
183 :mnemonic ?* |
3080874809b6
(koi8-u, koi8-t, windows-1251, cp1125): New
Dave Love <fx@gnu.org>
parents:
88512
diff
changeset
|
184 :charset-list '(koi8-t) |
3080874809b6
(koi8-u, koi8-t, windows-1251, cp1125): New
Dave Love <fx@gnu.org>
parents:
88512
diff
changeset
|
185 :mime-charset 'koi8-t) |
3080874809b6
(koi8-u, koi8-t, windows-1251, cp1125): New
Dave Love <fx@gnu.org>
parents:
88512
diff
changeset
|
186 |
3080874809b6
(koi8-u, koi8-t, windows-1251, cp1125): New
Dave Love <fx@gnu.org>
parents:
88512
diff
changeset
|
187 (define-coding-system 'windows-1251 |
3080874809b6
(koi8-u, koi8-t, windows-1251, cp1125): New
Dave Love <fx@gnu.org>
parents:
88512
diff
changeset
|
188 "windows-1251 8-bit encoding for Cyrillic (MIME: WINDOWS-1251)" |
3080874809b6
(koi8-u, koi8-t, windows-1251, cp1125): New
Dave Love <fx@gnu.org>
parents:
88512
diff
changeset
|
189 :coding-type 'charset |
3080874809b6
(koi8-u, koi8-t, windows-1251, cp1125): New
Dave Love <fx@gnu.org>
parents:
88512
diff
changeset
|
190 :mnemonic ?b |
3080874809b6
(koi8-u, koi8-t, windows-1251, cp1125): New
Dave Love <fx@gnu.org>
parents:
88512
diff
changeset
|
191 :charset-list '(windows-1251) |
3080874809b6
(koi8-u, koi8-t, windows-1251, cp1125): New
Dave Love <fx@gnu.org>
parents:
88512
diff
changeset
|
192 :mime-charset 'windows-1251) |
3080874809b6
(koi8-u, koi8-t, windows-1251, cp1125): New
Dave Love <fx@gnu.org>
parents:
88512
diff
changeset
|
193 (define-coding-system-alias 'cp1251 'windows-1251) |
3080874809b6
(koi8-u, koi8-t, windows-1251, cp1125): New
Dave Love <fx@gnu.org>
parents:
88512
diff
changeset
|
194 |
3080874809b6
(koi8-u, koi8-t, windows-1251, cp1125): New
Dave Love <fx@gnu.org>
parents:
88512
diff
changeset
|
195 (define-coding-system 'cp1125 |
88766 | 196 "cp1125 8-bit encoding for Cyrillic" |
88531
3080874809b6
(koi8-u, koi8-t, windows-1251, cp1125): New
Dave Love <fx@gnu.org>
parents:
88512
diff
changeset
|
197 :coding-type 'charset |
3080874809b6
(koi8-u, koi8-t, windows-1251, cp1125): New
Dave Love <fx@gnu.org>
parents:
88512
diff
changeset
|
198 :mnemonic ?* |
3080874809b6
(koi8-u, koi8-t, windows-1251, cp1125): New
Dave Love <fx@gnu.org>
parents:
88512
diff
changeset
|
199 :charset-list '(cp1125)) |
3080874809b6
(koi8-u, koi8-t, windows-1251, cp1125): New
Dave Love <fx@gnu.org>
parents:
88512
diff
changeset
|
200 (define-coding-system-alias 'ruscii 'cp1125) |
3080874809b6
(koi8-u, koi8-t, windows-1251, cp1125): New
Dave Love <fx@gnu.org>
parents:
88512
diff
changeset
|
201 ;; Original name for cp1125, says Serhii Hlodin <hlodin@lutsk.bank.gov.ua> |
3080874809b6
(koi8-u, koi8-t, windows-1251, cp1125): New
Dave Love <fx@gnu.org>
parents:
88512
diff
changeset
|
202 (define-coding-system-alias 'cp866u 'cp1125) |
3080874809b6
(koi8-u, koi8-t, windows-1251, cp1125): New
Dave Love <fx@gnu.org>
parents:
88512
diff
changeset
|
203 |
88615
fc355fbbbbcc
(cp855, ibm855): New coding systems.
Dave Love <fx@gnu.org>
parents:
88531
diff
changeset
|
204 (define-coding-system 'cp855 |
fc355fbbbbcc
(cp855, ibm855): New coding systems.
Dave Love <fx@gnu.org>
parents:
88531
diff
changeset
|
205 "DOS codepage 855 (Russian)" |
fc355fbbbbcc
(cp855, ibm855): New coding systems.
Dave Love <fx@gnu.org>
parents:
88531
diff
changeset
|
206 :coding-type 'charset |
fc355fbbbbcc
(cp855, ibm855): New coding systems.
Dave Love <fx@gnu.org>
parents:
88531
diff
changeset
|
207 :mnemonic ?D |
fc355fbbbbcc
(cp855, ibm855): New coding systems.
Dave Love <fx@gnu.org>
parents:
88531
diff
changeset
|
208 :charset-list '(cp855) |
fc355fbbbbcc
(cp855, ibm855): New coding systems.
Dave Love <fx@gnu.org>
parents:
88531
diff
changeset
|
209 :mime-charset 'cp855) |
fc355fbbbbcc
(cp855, ibm855): New coding systems.
Dave Love <fx@gnu.org>
parents:
88531
diff
changeset
|
210 (define-coding-system-alias 'ibm855 'cp855) |
fc355fbbbbcc
(cp855, ibm855): New coding systems.
Dave Love <fx@gnu.org>
parents:
88531
diff
changeset
|
211 |
89319 | 212 (define-coding-system 'mik |
213 "Bulgarian DOS codepage" | |
214 :coding-type 'charset | |
215 :mnemonic ?D | |
216 :charset-list '(mik)) | |
217 | |
218 (define-coding-system 'pt154 | |
219 "Parattype Asian Cyrillic codepage" | |
220 :coding-type 'charset | |
221 :mnemonic ?D | |
222 :charset-list '(pt154)) | |
223 | |
88733
bd5a6493c5fc
("Tajik", "Bulgarian", "Belarusian"): New
Dave Love <fx@gnu.org>
parents:
88615
diff
changeset
|
224 ;; (set-language-info-alist |
bd5a6493c5fc
("Tajik", "Bulgarian", "Belarusian"): New
Dave Love <fx@gnu.org>
parents:
88615
diff
changeset
|
225 ;; "Windows-1251" `((coding-system windows-1251) |
bd5a6493c5fc
("Tajik", "Bulgarian", "Belarusian"): New
Dave Love <fx@gnu.org>
parents:
88615
diff
changeset
|
226 ;; (coding-priority windows-1251) |
bd5a6493c5fc
("Tajik", "Bulgarian", "Belarusian"): New
Dave Love <fx@gnu.org>
parents:
88615
diff
changeset
|
227 ;; (input-method . "russian-typewriter") ; fixme? |
bd5a6493c5fc
("Tajik", "Bulgarian", "Belarusian"): New
Dave Love <fx@gnu.org>
parents:
88615
diff
changeset
|
228 ;; (features code-pages) |
bd5a6493c5fc
("Tajik", "Bulgarian", "Belarusian"): New
Dave Love <fx@gnu.org>
parents:
88615
diff
changeset
|
229 ;; (documentation . "Support for windows-1251 character set.")) |
bd5a6493c5fc
("Tajik", "Bulgarian", "Belarusian"): New
Dave Love <fx@gnu.org>
parents:
88615
diff
changeset
|
230 ;; '("Cyrillic")) |
bd5a6493c5fc
("Tajik", "Bulgarian", "Belarusian"): New
Dave Love <fx@gnu.org>
parents:
88615
diff
changeset
|
231 |
46500 | 232 (set-language-info-alist |
88991
8f20edeaf2e8
("Tajik", "Bulgarian", "Belarusian"): Add
Dave Love <fx@gnu.org>
parents:
88766
diff
changeset
|
233 "Tajik" `((coding-system koi8-t) |
8f20edeaf2e8
("Tajik", "Bulgarian", "Belarusian"): Add
Dave Love <fx@gnu.org>
parents:
88766
diff
changeset
|
234 (coding-priority koi8-t) |
88733
bd5a6493c5fc
("Tajik", "Bulgarian", "Belarusian"): New
Dave Love <fx@gnu.org>
parents:
88615
diff
changeset
|
235 (nonascii-translation . cyrillic-koi8-t) |
89186
af4d3d2b9101
("Bulgarian"): Fix input method and
Dave Love <fx@gnu.org>
parents:
88991
diff
changeset
|
236 (charset koi8-t) |
49795
0f184780c237
("Cyrillic-KOI8"): Fix input-method.
Dave Love <fx@gnu.org>
parents:
48832
diff
changeset
|
237 (input-method . "russian-typewriter") ; fixme? |
0f184780c237
("Cyrillic-KOI8"): Fix input-method.
Dave Love <fx@gnu.org>
parents:
48832
diff
changeset
|
238 (features code-pages) |
0f184780c237
("Cyrillic-KOI8"): Fix input-method.
Dave Love <fx@gnu.org>
parents:
48832
diff
changeset
|
239 (documentation . "Support for Tajik using KOI8-T.")) |
46500 | 240 '("Cyrillic")) |
241 | |
53242
e8f42b49f71f
Register "microsoft-cp1251" in ctext-non-standard-encodings-alist.
Kenichi Handa <handa@m17n.org>
parents:
52720
diff
changeset
|
242 (let ((elt `("microsoft-cp1251" windows-1251 1 |
e8f42b49f71f
Register "microsoft-cp1251" in ctext-non-standard-encodings-alist.
Kenichi Handa <handa@m17n.org>
parents:
52720
diff
changeset
|
243 ,(get 'encode-windows-1251 'translation-table))) |
e8f42b49f71f
Register "microsoft-cp1251" in ctext-non-standard-encodings-alist.
Kenichi Handa <handa@m17n.org>
parents:
52720
diff
changeset
|
244 (slot (assoc "microsoft-cp1251" ctext-non-standard-encodings-alist))) |
e8f42b49f71f
Register "microsoft-cp1251" in ctext-non-standard-encodings-alist.
Kenichi Handa <handa@m17n.org>
parents:
52720
diff
changeset
|
245 (if slot |
e8f42b49f71f
Register "microsoft-cp1251" in ctext-non-standard-encodings-alist.
Kenichi Handa <handa@m17n.org>
parents:
52720
diff
changeset
|
246 (setcdr slot (cdr elt)) |
e8f42b49f71f
Register "microsoft-cp1251" in ctext-non-standard-encodings-alist.
Kenichi Handa <handa@m17n.org>
parents:
52720
diff
changeset
|
247 (push elt ctext-non-standard-encodings-alist))) |
e8f42b49f71f
Register "microsoft-cp1251" in ctext-non-standard-encodings-alist.
Kenichi Handa <handa@m17n.org>
parents:
52720
diff
changeset
|
248 |
46500 | 249 (set-language-info-alist |
250 "Bulgarian" `((coding-system windows-1251) | |
53242
e8f42b49f71f
Register "microsoft-cp1251" in ctext-non-standard-encodings-alist.
Kenichi Handa <handa@m17n.org>
parents:
52720
diff
changeset
|
251 (coding-priority windows-1251) |
88733
bd5a6493c5fc
("Tajik", "Bulgarian", "Belarusian"): New
Dave Love <fx@gnu.org>
parents:
88615
diff
changeset
|
252 (nonascii-translation . windows-1251) |
89186
af4d3d2b9101
("Bulgarian"): Fix input method and
Dave Love <fx@gnu.org>
parents:
88991
diff
changeset
|
253 (charset windows-1251) |
53242
e8f42b49f71f
Register "microsoft-cp1251" in ctext-non-standard-encodings-alist.
Kenichi Handa <handa@m17n.org>
parents:
52720
diff
changeset
|
254 (ctext-non-standard-encodings "microsoft-cp1251") |
47906
470049d232d2
(cyrillic-alternativnyj-decode-table): Fix
Kenichi Handa <handa@m17n.org>
parents:
47702
diff
changeset
|
255 (input-method . "bulgarian-bds") |
46500 | 256 (documentation |
88733
bd5a6493c5fc
("Tajik", "Bulgarian", "Belarusian"): New
Dave Love <fx@gnu.org>
parents:
88615
diff
changeset
|
257 . "Support for Bulgrian with windows-1251 character set.")) |
46500 | 258 '("Cyrillic")) |
259 | |
260 (set-language-info-alist | |
261 "Belarusian" `((coding-system windows-1251) | |
262 (coding-priority windows-1251) | |
88733
bd5a6493c5fc
("Tajik", "Bulgarian", "Belarusian"): New
Dave Love <fx@gnu.org>
parents:
88615
diff
changeset
|
263 (nonascii-translation . windows-1251) |
89186
af4d3d2b9101
("Bulgarian"): Fix input method and
Dave Love <fx@gnu.org>
parents:
88991
diff
changeset
|
264 (charset windows-1251) |
53242
e8f42b49f71f
Register "microsoft-cp1251" in ctext-non-standard-encodings-alist.
Kenichi Handa <handa@m17n.org>
parents:
52720
diff
changeset
|
265 (ctext-non-standard-encodings "microsoft-cp1251") |
46500 | 266 (input-method . "belarusian") |
267 (documentation | |
268 . "Support for Belarusian with windows-1251 character set. | |
269 \(The name Belarusian replaced Byelorussian in the early 1990s.)")) | |
270 '("Cyrillic")) | |
271 | |
88991
8f20edeaf2e8
("Tajik", "Bulgarian", "Belarusian"): Add
Dave Love <fx@gnu.org>
parents:
88766
diff
changeset
|
272 (set-language-info-alist |
8f20edeaf2e8
("Tajik", "Bulgarian", "Belarusian"): Add
Dave Love <fx@gnu.org>
parents:
88766
diff
changeset
|
273 "Ukrainian" `((coding-system koi8-u) |
8f20edeaf2e8
("Tajik", "Bulgarian", "Belarusian"): Add
Dave Love <fx@gnu.org>
parents:
88766
diff
changeset
|
274 (coding-priority koi8-u) |
8f20edeaf2e8
("Tajik", "Bulgarian", "Belarusian"): Add
Dave Love <fx@gnu.org>
parents:
88766
diff
changeset
|
275 (input-method . "ukrainian-computer") |
8f20edeaf2e8
("Tajik", "Bulgarian", "Belarusian"): Add
Dave Love <fx@gnu.org>
parents:
88766
diff
changeset
|
276 (documentation |
8f20edeaf2e8
("Tajik", "Bulgarian", "Belarusian"): Add
Dave Love <fx@gnu.org>
parents:
88766
diff
changeset
|
277 . "Support for Ukrainian with koi8-u character set.")) |
8f20edeaf2e8
("Tajik", "Bulgarian", "Belarusian"): Add
Dave Love <fx@gnu.org>
parents:
88766
diff
changeset
|
278 '("Cyrillic")) |
8f20edeaf2e8
("Tajik", "Bulgarian", "Belarusian"): Add
Dave Love <fx@gnu.org>
parents:
88766
diff
changeset
|
279 |
33778 | 280 (provide 'cyrillic) |
281 | |
93975
1e3a407766b9
Fix up comment convention on the arch-tag lines.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
91327
diff
changeset
|
282 ;; arch-tag: bda71ae0-ba41-4cb6-a6e0-1dff542313d3 |
17052 | 283 ;;; cyrillic.el ends here |