Mercurial > emacs
annotate lisp/language/cyrillic.el @ 89573:6b5d42f51038
(x_get_font_repertory): Handle the case that the
encoding of font is other than Unicode.
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Mon, 06 Oct 2003 11:23:25 +0000 |
parents | 2f877ed80fa6 |
children | 68c22ea6027c |
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 |
3 ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN. | |
89483 | 4 ;; Licensed to the Free Software Foundation. |
49795
0f184780c237
("Cyrillic-KOI8"): Fix input-method.
Dave Love <fx@gnu.org>
parents:
48832
diff
changeset
|
5 ;; Copyright (C) 2001, 2002, 2003 Free Software Foundation, Inc. |
89483 | 6 ;; Copyright (C) 2003 |
7 ;; National Institute of Advanced Industrial Science and Technology (AIST) | |
8 ;; Registration Number H13PRO009 | |
17052 | 9 |
46500 | 10 ;; Author: Kenichi Handa <handa@etl.go.jp> |
11 ;; Keywords: multilingual, Cyrillic, i18n | |
17052 | 12 |
13 ;; This file is part of GNU Emacs. | |
14 | |
15 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
16 ;; it under the terms of the GNU General Public License as published by | |
17 ;; the Free Software Foundation; either version 2, or (at your option) | |
18 ;; any later version. | |
19 | |
20 ;; GNU Emacs is distributed in the hope that it will be useful, | |
21 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
22 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
23 ;; GNU General Public License for more details. | |
24 | |
25 ;; You should have received a copy of the GNU General Public License | |
17071 | 26 ;; along with GNU Emacs; see the file COPYING. If not, write to the |
27 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, | |
28 ;; Boston, MA 02111-1307, USA. | |
17052 | 29 |
30 ;;; Commentary: | |
31 | |
46500 | 32 ;; The character set ISO8859-5 is supported. KOI-8 and ALTERNATIVNYJ |
33 ;; are converted to Unicode internally. See | |
34 ;; <URL:http://www.ecma.ch/ecma1/STAND/ECMA-113.HTM>. For more info | |
35 ;; on Cyrillic charsets, see | |
36 ;; <URL:http://czyborra.com/charsets/cyrillic.html>. The KOI and | |
37 ;; Alternativnyj coding systems should live in code-pages.el, but | |
38 ;; they've always been preloaded and the coding system autoload | |
39 ;; mechanism didn't get accepted, so they have to stay here and | |
40 ;; duplicate code-pages stuff. | |
41 | |
42 ;; Note that 8859-5 maps directly onto the Unicode Cyrillic block, | |
43 ;; apart from codepoints 160 (NBSP, c.f. U+0400), 173 (soft hyphen, | |
44 ;; c.f. U+04OD) and 253 (section sign, c.f U+045D). The KOI-8 and | |
45 ;; Alternativnyj coding systems encode both 8859-5 and Unicode. | |
46 ;; ucs-tables.el provides unification for cyrillic-iso-8bit. | |
47 | |
47702
e0786a68f34e
(ccl-decode-koi8): Refer to
Kenichi Handa <handa@m17n.org>
parents:
47416
diff
changeset
|
48 ;; Customizing `utf-fragment-on-decoding' allows decoding characters |
46500 | 49 ;; from KOI and Alternativnyj into 8859-5 where that's possible. |
50 ;; cyrillic-iso8859-5 characters take half as much space in the buffer | |
51 ;; as the mule-unicode-0100-24ff equivalents, though that's probably | |
52 ;; not normally a big deal. | |
17052 | 53 |
54 ;;; Code: | |
55 | |
19451
933bea774c3c
Make describe-cyrillic-environment-map and
Kenichi Handa <handa@m17n.org>
parents:
18520
diff
changeset
|
56 ;; Cyrillic (general) |
933bea774c3c
Make describe-cyrillic-environment-map and
Kenichi Handa <handa@m17n.org>
parents:
18520
diff
changeset
|
57 |
88531
3080874809b6
(koi8-u, koi8-t, windows-1251, cp1125): New
Dave Love <fx@gnu.org>
parents:
88512
diff
changeset
|
58 ;; ISO-8859-5 stuff |
17085
4dafa5431293
Change coding system name koi8 to koi8-r.
Kenichi Handa <handa@m17n.org>
parents:
17071
diff
changeset
|
59 |
88414
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42152
diff
changeset
|
60 (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
|
61 "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
|
62 :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
|
63 :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
|
64 :charset-list '(iso-8859-5) |
88512
1e2fb9a9f29c
(cyrillic-iso-8bit, cyrillic-koi8)
Dave Love <fx@gnu.org>
parents:
88414
diff
changeset
|
65 :mime-charset 'iso-8859-5) |
17052 | 66 |
18520
383d11185239
Swap args to define-coding-system-alias.
Richard M. Stallman <rms@gnu.org>
parents:
18454
diff
changeset
|
67 (define-coding-system-alias 'iso-8859-5 'cyrillic-iso-8bit) |
18308 | 68 |
19451
933bea774c3c
Make describe-cyrillic-environment-map and
Kenichi Handa <handa@m17n.org>
parents:
18520
diff
changeset
|
69 (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
|
70 "Cyrillic-ISO" '((charset iso-8859-5) |
20745 | 71 (coding-system cyrillic-iso-8bit) |
72 (coding-priority cyrillic-iso-8bit) | |
46500 | 73 (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
|
74 (nonascii-translation . iso-8859-5) |
22983
7a010b8c0d99
("LANUGAGE-ENVIRONMENT"): Delete property setup-function or change
Kenichi Handa <handa@m17n.org>
parents:
22881
diff
changeset
|
75 (unibyte-display . cyrillic-iso-8bit) |
7a010b8c0d99
("LANUGAGE-ENVIRONMENT"): Delete property setup-function or change
Kenichi Handa <handa@m17n.org>
parents:
22881
diff
changeset
|
76 (features cyril-util) |
19451
933bea774c3c
Make describe-cyrillic-environment-map and
Kenichi Handa <handa@m17n.org>
parents:
18520
diff
changeset
|
77 (sample-text . "Russian (,L@caaZXY(B) ,L7T`PRabRcYbU(B!") |
20745 | 78 (documentation . "Support for Cyrillic ISO-8859-5.")) |
79 '("Cyrillic")) | |
19451
933bea774c3c
Make describe-cyrillic-environment-map and
Kenichi Handa <handa@m17n.org>
parents:
18520
diff
changeset
|
80 |
46500 | 81 ;; KOI-8R stuff |
17085
4dafa5431293
Change coding system name koi8 to koi8-r.
Kenichi Handa <handa@m17n.org>
parents:
17071
diff
changeset
|
82 |
88414
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42152
diff
changeset
|
83 (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
|
84 "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
|
85 :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
|
86 ;; 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
|
87 ;; 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
|
88 ;; 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
|
89 :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
|
90 :charset-list '(koi8) |
88512
1e2fb9a9f29c
(cyrillic-iso-8bit, cyrillic-koi8)
Dave Love <fx@gnu.org>
parents:
88414
diff
changeset
|
91 :mime-charset 'koi8-r) |
17085
4dafa5431293
Change coding system name koi8 to koi8-r.
Kenichi Handa <handa@m17n.org>
parents:
17071
diff
changeset
|
92 |
18520
383d11185239
Swap args to define-coding-system-alias.
Richard M. Stallman <rms@gnu.org>
parents:
18454
diff
changeset
|
93 (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
|
94 (define-coding-system-alias 'koi8 'cyrillic-koi8) |
88512
1e2fb9a9f29c
(cyrillic-iso-8bit, cyrillic-koi8)
Dave Love <fx@gnu.org>
parents:
88414
diff
changeset
|
95 (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
|
96 |
19451
933bea774c3c
Make describe-cyrillic-environment-map and
Kenichi Handa <handa@m17n.org>
parents:
18520
diff
changeset
|
97 (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
|
98 "Cyrillic-KOI8" `((charset koi8) |
20745 | 99 (coding-system cyrillic-koi8) |
46500 | 100 (coding-priority cyrillic-koi8 cyrillic-iso-8bit) |
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 (nonascii-translation . koi8) |
49795
0f184780c237
("Cyrillic-KOI8"): Fix input-method.
Dave Love <fx@gnu.org>
parents:
48832
diff
changeset
|
102 (input-method . "russian-typewriter") |
22983
7a010b8c0d99
("LANUGAGE-ENVIRONMENT"): Delete property setup-function or change
Kenichi Handa <handa@m17n.org>
parents:
22881
diff
changeset
|
103 (features cyril-util) |
7a010b8c0d99
("LANUGAGE-ENVIRONMENT"): Delete property setup-function or change
Kenichi Handa <handa@m17n.org>
parents:
22881
diff
changeset
|
104 (unibyte-display . cyrillic-koi8) |
19451
933bea774c3c
Make describe-cyrillic-environment-map and
Kenichi Handa <handa@m17n.org>
parents:
18520
diff
changeset
|
105 (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
|
106 (documentation . "Support for Cyrillic KOI8-R.")) |
20745 | 107 '("Cyrillic")) |
19451
933bea774c3c
Make describe-cyrillic-environment-map and
Kenichi Handa <handa@m17n.org>
parents:
18520
diff
changeset
|
108 |
49795
0f184780c237
("Cyrillic-KOI8"): Fix input-method.
Dave Love <fx@gnu.org>
parents:
48832
diff
changeset
|
109 (set-language-info-alist |
0f184780c237
("Cyrillic-KOI8"): Fix input-method.
Dave Love <fx@gnu.org>
parents:
48832
diff
changeset
|
110 "Russian" `((charset cyrillic-iso8859-5) |
0f184780c237
("Cyrillic-KOI8"): Fix input-method.
Dave Love <fx@gnu.org>
parents:
48832
diff
changeset
|
111 (nonascii-translation |
0f184780c237
("Cyrillic-KOI8"): Fix input-method.
Dave Love <fx@gnu.org>
parents:
48832
diff
changeset
|
112 . ,(get 'cyrillic-koi8-r-nonascii-translation-table |
0f184780c237
("Cyrillic-KOI8"): Fix input-method.
Dave Love <fx@gnu.org>
parents:
48832
diff
changeset
|
113 'translation-table)) |
0f184780c237
("Cyrillic-KOI8"): Fix input-method.
Dave Love <fx@gnu.org>
parents:
48832
diff
changeset
|
114 (coding-system cyrillic-koi8) |
0f184780c237
("Cyrillic-KOI8"): Fix input-method.
Dave Love <fx@gnu.org>
parents:
48832
diff
changeset
|
115 (coding-priority cyrillic-koi8 cyrillic-iso-8bit) |
0f184780c237
("Cyrillic-KOI8"): Fix input-method.
Dave Love <fx@gnu.org>
parents:
48832
diff
changeset
|
116 (input-method . "russian-computer") |
0f184780c237
("Cyrillic-KOI8"): Fix input-method.
Dave Love <fx@gnu.org>
parents:
48832
diff
changeset
|
117 (features cyril-util) |
0f184780c237
("Cyrillic-KOI8"): Fix input-method.
Dave Love <fx@gnu.org>
parents:
48832
diff
changeset
|
118 (unibyte-display . cyrillic-koi8) |
0f184780c237
("Cyrillic-KOI8"): Fix input-method.
Dave Love <fx@gnu.org>
parents:
48832
diff
changeset
|
119 (sample-text . "Russian (,L@caaZXY(B) ,L7T`PRabRcYbU(B!") |
0f184780c237
("Cyrillic-KOI8"): Fix input-method.
Dave Love <fx@gnu.org>
parents:
48832
diff
changeset
|
120 (documentation . "\ |
0f184780c237
("Cyrillic-KOI8"): Fix input-method.
Dave Love <fx@gnu.org>
parents:
48832
diff
changeset
|
121 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
|
122 (tutorial . "TUTORIAL.ru")) |
0f184780c237
("Cyrillic-KOI8"): Fix input-method.
Dave Love <fx@gnu.org>
parents:
48832
diff
changeset
|
123 '("Cyrillic")) |
0f184780c237
("Cyrillic-KOI8"): Fix input-method.
Dave Love <fx@gnu.org>
parents:
48832
diff
changeset
|
124 |
88531
3080874809b6
(koi8-u, koi8-t, windows-1251, cp1125): New
Dave Love <fx@gnu.org>
parents:
88512
diff
changeset
|
125 ;;; ALTERNATIVNYJ stuff |
17085
4dafa5431293
Change coding system name koi8 to koi8-r.
Kenichi Handa <handa@m17n.org>
parents:
17071
diff
changeset
|
126 |
88414
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42152
diff
changeset
|
127 (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
|
128 "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
|
129 :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
|
130 :mnemonic ?A |
89204 | 131 :charset-list '(alternativnyj)) |
17085
4dafa5431293
Change coding system name koi8 to koi8-r.
Kenichi Handa <handa@m17n.org>
parents:
17071
diff
changeset
|
132 |
18520
383d11185239
Swap args to define-coding-system-alias.
Richard M. Stallman <rms@gnu.org>
parents:
18454
diff
changeset
|
133 (define-coding-system-alias 'alternativnyj 'cyrillic-alternativnyj) |
18308 | 134 |
17993
73869115ae0a
Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents:
17841
diff
changeset
|
135 (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
|
136 "Cyrillic-ALT" `((charset alternativnyj) |
20745 | 137 (coding-system cyrillic-alternativnyj) |
138 (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
|
139 (nonascii-translation . alternativnyj) |
46500 | 140 (input-method . "russian-typewriter") |
22983
7a010b8c0d99
("LANUGAGE-ENVIRONMENT"): Delete property setup-function or change
Kenichi Handa <handa@m17n.org>
parents:
22881
diff
changeset
|
141 (features cyril-util) |
7a010b8c0d99
("LANUGAGE-ENVIRONMENT"): Delete property setup-function or change
Kenichi Handa <handa@m17n.org>
parents:
22881
diff
changeset
|
142 (unibyte-display . cyrillic-alternativnyj) |
19451
933bea774c3c
Make describe-cyrillic-environment-map and
Kenichi Handa <handa@m17n.org>
parents:
18520
diff
changeset
|
143 (sample-text . "Russian (,L@caaZXY(B) ,L7T`PRabRcYbU(B!") |
20745 | 144 (documentation . "Support for Cyrillic ALTERNATIVNYJ.")) |
145 '("Cyrillic")) | |
17052 | 146 |
89204 | 147 (define-coding-system 'cp866 |
148 "CP866 encoding for Cyrillic." | |
149 :coding-type 'charset | |
150 :mnemonic ?* | |
151 :charset-list '(ibm866) | |
152 :mime-charset 'cp866) | |
153 | |
88531
3080874809b6
(koi8-u, koi8-t, windows-1251, cp1125): New
Dave Love <fx@gnu.org>
parents:
88512
diff
changeset
|
154 (define-coding-system 'koi8-u |
3080874809b6
(koi8-u, koi8-t, windows-1251, cp1125): New
Dave Love <fx@gnu.org>
parents:
88512
diff
changeset
|
155 "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
|
156 :coding-type 'charset |
3080874809b6
(koi8-u, koi8-t, windows-1251, cp1125): New
Dave Love <fx@gnu.org>
parents:
88512
diff
changeset
|
157 :mnemonic ?U |
3080874809b6
(koi8-u, koi8-t, windows-1251, cp1125): New
Dave Love <fx@gnu.org>
parents:
88512
diff
changeset
|
158 :charset-list '(koi8-u) |
3080874809b6
(koi8-u, koi8-t, windows-1251, cp1125): New
Dave Love <fx@gnu.org>
parents:
88512
diff
changeset
|
159 :mime-charset 'koi8-u) |
3080874809b6
(koi8-u, koi8-t, windows-1251, cp1125): New
Dave Love <fx@gnu.org>
parents:
88512
diff
changeset
|
160 |
3080874809b6
(koi8-u, koi8-t, windows-1251, cp1125): New
Dave Love <fx@gnu.org>
parents:
88512
diff
changeset
|
161 (define-coding-system 'koi8-t |
88766 | 162 "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
|
163 :coding-type 'charset |
3080874809b6
(koi8-u, koi8-t, windows-1251, cp1125): New
Dave Love <fx@gnu.org>
parents:
88512
diff
changeset
|
164 :mnemonic ?* |
3080874809b6
(koi8-u, koi8-t, windows-1251, cp1125): New
Dave Love <fx@gnu.org>
parents:
88512
diff
changeset
|
165 :charset-list '(koi8-t) |
3080874809b6
(koi8-u, koi8-t, windows-1251, cp1125): New
Dave Love <fx@gnu.org>
parents:
88512
diff
changeset
|
166 :mime-charset 'koi8-t) |
3080874809b6
(koi8-u, koi8-t, windows-1251, cp1125): New
Dave Love <fx@gnu.org>
parents:
88512
diff
changeset
|
167 |
3080874809b6
(koi8-u, koi8-t, windows-1251, cp1125): New
Dave Love <fx@gnu.org>
parents:
88512
diff
changeset
|
168 (define-coding-system 'windows-1251 |
3080874809b6
(koi8-u, koi8-t, windows-1251, cp1125): New
Dave Love <fx@gnu.org>
parents:
88512
diff
changeset
|
169 "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
|
170 :coding-type 'charset |
3080874809b6
(koi8-u, koi8-t, windows-1251, cp1125): New
Dave Love <fx@gnu.org>
parents:
88512
diff
changeset
|
171 :mnemonic ?b |
3080874809b6
(koi8-u, koi8-t, windows-1251, cp1125): New
Dave Love <fx@gnu.org>
parents:
88512
diff
changeset
|
172 :charset-list '(windows-1251) |
3080874809b6
(koi8-u, koi8-t, windows-1251, cp1125): New
Dave Love <fx@gnu.org>
parents:
88512
diff
changeset
|
173 :mime-charset 'windows-1251) |
3080874809b6
(koi8-u, koi8-t, windows-1251, cp1125): New
Dave Love <fx@gnu.org>
parents:
88512
diff
changeset
|
174 (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
|
175 |
3080874809b6
(koi8-u, koi8-t, windows-1251, cp1125): New
Dave Love <fx@gnu.org>
parents:
88512
diff
changeset
|
176 (define-coding-system 'cp1125 |
88766 | 177 "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
|
178 :coding-type 'charset |
3080874809b6
(koi8-u, koi8-t, windows-1251, cp1125): New
Dave Love <fx@gnu.org>
parents:
88512
diff
changeset
|
179 :mnemonic ?* |
3080874809b6
(koi8-u, koi8-t, windows-1251, cp1125): New
Dave Love <fx@gnu.org>
parents:
88512
diff
changeset
|
180 :charset-list '(cp1125)) |
3080874809b6
(koi8-u, koi8-t, windows-1251, cp1125): New
Dave Love <fx@gnu.org>
parents:
88512
diff
changeset
|
181 (define-coding-system-alias 'ruscii 'cp1125) |
3080874809b6
(koi8-u, koi8-t, windows-1251, cp1125): New
Dave Love <fx@gnu.org>
parents:
88512
diff
changeset
|
182 ;; 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
|
183 (define-coding-system-alias 'cp866u 'cp1125) |
3080874809b6
(koi8-u, koi8-t, windows-1251, cp1125): New
Dave Love <fx@gnu.org>
parents:
88512
diff
changeset
|
184 |
88615
fc355fbbbbcc
(cp855, ibm855): New coding systems.
Dave Love <fx@gnu.org>
parents:
88531
diff
changeset
|
185 (define-coding-system 'cp855 |
fc355fbbbbcc
(cp855, ibm855): New coding systems.
Dave Love <fx@gnu.org>
parents:
88531
diff
changeset
|
186 "DOS codepage 855 (Russian)" |
fc355fbbbbcc
(cp855, ibm855): New coding systems.
Dave Love <fx@gnu.org>
parents:
88531
diff
changeset
|
187 :coding-type 'charset |
fc355fbbbbcc
(cp855, ibm855): New coding systems.
Dave Love <fx@gnu.org>
parents:
88531
diff
changeset
|
188 :mnemonic ?D |
fc355fbbbbcc
(cp855, ibm855): New coding systems.
Dave Love <fx@gnu.org>
parents:
88531
diff
changeset
|
189 :charset-list '(cp855) |
fc355fbbbbcc
(cp855, ibm855): New coding systems.
Dave Love <fx@gnu.org>
parents:
88531
diff
changeset
|
190 :mime-charset 'cp855) |
fc355fbbbbcc
(cp855, ibm855): New coding systems.
Dave Love <fx@gnu.org>
parents:
88531
diff
changeset
|
191 (define-coding-system-alias 'ibm855 'cp855) |
fc355fbbbbcc
(cp855, ibm855): New coding systems.
Dave Love <fx@gnu.org>
parents:
88531
diff
changeset
|
192 |
89319 | 193 (define-coding-system 'mik |
194 "Bulgarian DOS codepage" | |
195 :coding-type 'charset | |
196 :mnemonic ?D | |
197 :charset-list '(mik)) | |
198 | |
199 (define-coding-system 'pt154 | |
200 "Parattype Asian Cyrillic codepage" | |
201 :coding-type 'charset | |
202 :mnemonic ?D | |
203 :charset-list '(pt154)) | |
204 | |
88733
bd5a6493c5fc
("Tajik", "Bulgarian", "Belarusian"): New
Dave Love <fx@gnu.org>
parents:
88615
diff
changeset
|
205 ;; (set-language-info-alist |
bd5a6493c5fc
("Tajik", "Bulgarian", "Belarusian"): New
Dave Love <fx@gnu.org>
parents:
88615
diff
changeset
|
206 ;; "Windows-1251" `((coding-system windows-1251) |
bd5a6493c5fc
("Tajik", "Bulgarian", "Belarusian"): New
Dave Love <fx@gnu.org>
parents:
88615
diff
changeset
|
207 ;; (coding-priority windows-1251) |
bd5a6493c5fc
("Tajik", "Bulgarian", "Belarusian"): New
Dave Love <fx@gnu.org>
parents:
88615
diff
changeset
|
208 ;; (input-method . "russian-typewriter") ; fixme? |
bd5a6493c5fc
("Tajik", "Bulgarian", "Belarusian"): New
Dave Love <fx@gnu.org>
parents:
88615
diff
changeset
|
209 ;; (features code-pages) |
bd5a6493c5fc
("Tajik", "Bulgarian", "Belarusian"): New
Dave Love <fx@gnu.org>
parents:
88615
diff
changeset
|
210 ;; (documentation . "Support for windows-1251 character set.")) |
bd5a6493c5fc
("Tajik", "Bulgarian", "Belarusian"): New
Dave Love <fx@gnu.org>
parents:
88615
diff
changeset
|
211 ;; '("Cyrillic")) |
bd5a6493c5fc
("Tajik", "Bulgarian", "Belarusian"): New
Dave Love <fx@gnu.org>
parents:
88615
diff
changeset
|
212 |
bd5a6493c5fc
("Tajik", "Bulgarian", "Belarusian"): New
Dave Love <fx@gnu.org>
parents:
88615
diff
changeset
|
213 (set-language-info-alist |
88991
8f20edeaf2e8
("Tajik", "Bulgarian", "Belarusian"): Add
Dave Love <fx@gnu.org>
parents:
88766
diff
changeset
|
214 "Tajik" `((coding-system koi8-t) |
8f20edeaf2e8
("Tajik", "Bulgarian", "Belarusian"): Add
Dave Love <fx@gnu.org>
parents:
88766
diff
changeset
|
215 (coding-priority koi8-t) |
88733
bd5a6493c5fc
("Tajik", "Bulgarian", "Belarusian"): New
Dave Love <fx@gnu.org>
parents:
88615
diff
changeset
|
216 (nonascii-translation . cyrillic-koi8-t) |
89186
af4d3d2b9101
("Bulgarian"): Fix input method and
Dave Love <fx@gnu.org>
parents:
88991
diff
changeset
|
217 (charset koi8-t) |
88733
bd5a6493c5fc
("Tajik", "Bulgarian", "Belarusian"): New
Dave Love <fx@gnu.org>
parents:
88615
diff
changeset
|
218 (input-method . "russian-typewriter") ; fixme? |
bd5a6493c5fc
("Tajik", "Bulgarian", "Belarusian"): New
Dave Love <fx@gnu.org>
parents:
88615
diff
changeset
|
219 (features code-pages) |
bd5a6493c5fc
("Tajik", "Bulgarian", "Belarusian"): New
Dave Love <fx@gnu.org>
parents:
88615
diff
changeset
|
220 (documentation . "Support for Tajik using KOI8-T.")) |
bd5a6493c5fc
("Tajik", "Bulgarian", "Belarusian"): New
Dave Love <fx@gnu.org>
parents:
88615
diff
changeset
|
221 '("Cyrillic")) |
bd5a6493c5fc
("Tajik", "Bulgarian", "Belarusian"): New
Dave Love <fx@gnu.org>
parents:
88615
diff
changeset
|
222 |
bd5a6493c5fc
("Tajik", "Bulgarian", "Belarusian"): New
Dave Love <fx@gnu.org>
parents:
88615
diff
changeset
|
223 (set-language-info-alist |
bd5a6493c5fc
("Tajik", "Bulgarian", "Belarusian"): New
Dave Love <fx@gnu.org>
parents:
88615
diff
changeset
|
224 "Bulgarian" `((coding-system windows-1251) |
bd5a6493c5fc
("Tajik", "Bulgarian", "Belarusian"): New
Dave Love <fx@gnu.org>
parents:
88615
diff
changeset
|
225 (coding-priority windows-1251) |
bd5a6493c5fc
("Tajik", "Bulgarian", "Belarusian"): New
Dave Love <fx@gnu.org>
parents:
88615
diff
changeset
|
226 (nonascii-translation . windows-1251) |
89186
af4d3d2b9101
("Bulgarian"): Fix input method and
Dave Love <fx@gnu.org>
parents:
88991
diff
changeset
|
227 (charset windows-1251) |
af4d3d2b9101
("Bulgarian"): Fix input method and
Dave Love <fx@gnu.org>
parents:
88991
diff
changeset
|
228 (input-method . "bulgarian-bds") |
88733
bd5a6493c5fc
("Tajik", "Bulgarian", "Belarusian"): New
Dave Love <fx@gnu.org>
parents:
88615
diff
changeset
|
229 (features code-pages) |
bd5a6493c5fc
("Tajik", "Bulgarian", "Belarusian"): New
Dave Love <fx@gnu.org>
parents:
88615
diff
changeset
|
230 (documentation |
bd5a6493c5fc
("Tajik", "Bulgarian", "Belarusian"): New
Dave Love <fx@gnu.org>
parents:
88615
diff
changeset
|
231 . "Support for Bulgrian with 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 |
bd5a6493c5fc
("Tajik", "Bulgarian", "Belarusian"): New
Dave Love <fx@gnu.org>
parents:
88615
diff
changeset
|
234 (set-language-info-alist |
bd5a6493c5fc
("Tajik", "Bulgarian", "Belarusian"): New
Dave Love <fx@gnu.org>
parents:
88615
diff
changeset
|
235 "Belarusian" `((coding-system windows-1251) |
bd5a6493c5fc
("Tajik", "Bulgarian", "Belarusian"): New
Dave Love <fx@gnu.org>
parents:
88615
diff
changeset
|
236 (coding-priority windows-1251) |
bd5a6493c5fc
("Tajik", "Bulgarian", "Belarusian"): New
Dave Love <fx@gnu.org>
parents:
88615
diff
changeset
|
237 (nonascii-translation . windows-1251) |
89186
af4d3d2b9101
("Bulgarian"): Fix input method and
Dave Love <fx@gnu.org>
parents:
88991
diff
changeset
|
238 (charset windows-1251) |
88733
bd5a6493c5fc
("Tajik", "Bulgarian", "Belarusian"): New
Dave Love <fx@gnu.org>
parents:
88615
diff
changeset
|
239 (input-method . "belarusian") |
bd5a6493c5fc
("Tajik", "Bulgarian", "Belarusian"): New
Dave Love <fx@gnu.org>
parents:
88615
diff
changeset
|
240 (features code-pages) |
bd5a6493c5fc
("Tajik", "Bulgarian", "Belarusian"): New
Dave Love <fx@gnu.org>
parents:
88615
diff
changeset
|
241 (documentation |
bd5a6493c5fc
("Tajik", "Bulgarian", "Belarusian"): New
Dave Love <fx@gnu.org>
parents:
88615
diff
changeset
|
242 . "Support for Belarusian with windows-1251 character set. |
88766 | 243 \(The name Belarusian replaced Byelorussian in the early 1990s.)")) |
88733
bd5a6493c5fc
("Tajik", "Bulgarian", "Belarusian"): New
Dave Love <fx@gnu.org>
parents:
88615
diff
changeset
|
244 '("Cyrillic")) |
bd5a6493c5fc
("Tajik", "Bulgarian", "Belarusian"): New
Dave Love <fx@gnu.org>
parents:
88615
diff
changeset
|
245 |
88991
8f20edeaf2e8
("Tajik", "Bulgarian", "Belarusian"): Add
Dave Love <fx@gnu.org>
parents:
88766
diff
changeset
|
246 (set-language-info-alist |
8f20edeaf2e8
("Tajik", "Bulgarian", "Belarusian"): Add
Dave Love <fx@gnu.org>
parents:
88766
diff
changeset
|
247 "Ukrainian" `((coding-system koi8-u) |
8f20edeaf2e8
("Tajik", "Bulgarian", "Belarusian"): Add
Dave Love <fx@gnu.org>
parents:
88766
diff
changeset
|
248 (coding-priority koi8-u) |
8f20edeaf2e8
("Tajik", "Bulgarian", "Belarusian"): Add
Dave Love <fx@gnu.org>
parents:
88766
diff
changeset
|
249 (input-method . "ukrainian-computer") |
8f20edeaf2e8
("Tajik", "Bulgarian", "Belarusian"): Add
Dave Love <fx@gnu.org>
parents:
88766
diff
changeset
|
250 (documentation |
8f20edeaf2e8
("Tajik", "Bulgarian", "Belarusian"): Add
Dave Love <fx@gnu.org>
parents:
88766
diff
changeset
|
251 . "Support for Ukrainian with koi8-u character set.")) |
8f20edeaf2e8
("Tajik", "Bulgarian", "Belarusian"): Add
Dave Love <fx@gnu.org>
parents:
88766
diff
changeset
|
252 '("Cyrillic")) |
8f20edeaf2e8
("Tajik", "Bulgarian", "Belarusian"): Add
Dave Love <fx@gnu.org>
parents:
88766
diff
changeset
|
253 |
33778 | 254 (provide 'cyrillic) |
255 | |
17052 | 256 ;;; cyrillic.el ends here |