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