HCoop / bpt / emacs.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
(gud-tooltip-mode): Add gud prefix to
[bpt/emacs.git] / lisp / language / cyrillic.el
CommitLineData
60370d40 1;;; cyrillic.el --- support for Cyrillic -*- coding: iso-2022-7bit; -*-
4ed46869 2
4ed46869 3;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN.
b79e7b7b 4;; Licensed to the Free Software Foundation.
76509389 5;; Copyright (C) 2001, 2002, 2003 Free Software Foundation, Inc.
4ed46869 6
6f27e0f9
DL		 7;; Author: Kenichi Handa <handa@etl.go.jp>
8;; Keywords: multilingual, Cyrillic, i18n
4ed46869
KH		 9
10;; This file is part of GNU Emacs.
11
12;; GNU Emacs is free software; you can redistribute it and/or modify
13;; it under the terms of the GNU General Public License as published by
14;; the Free Software Foundation; either version 2, or (at your option)
15;; any later version.
16
17;; GNU Emacs is distributed in the hope that it will be useful,
18;; but WITHOUT ANY WARRANTY; without even the implied warranty of
19;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
20;; GNU General Public License for more details.
21
22;; You should have received a copy of the GNU General Public License
369314dc
KH		 23;; along with GNU Emacs; see the file COPYING. If not, write to the
24;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
25;; Boston, MA 02111-1307, USA.
4ed46869
KH		 26
27;;; Commentary:
28
6f27e0f9
DL		 29;; The character set ISO8859-5 is supported. KOI-8 and ALTERNATIVNYJ
30;; are converted to Unicode internally. See
31;; <URL:http://www.ecma.ch/ecma1/STAND/ECMA-113.HTM>. For more info
32;; on Cyrillic charsets, see
33;; <URL:http://czyborra.com/charsets/cyrillic.html>. The KOI and
34;; Alternativnyj coding systems should live in code-pages.el, but
35;; they've always been preloaded and the coding system autoload
36;; mechanism didn't get accepted, so they have to stay here and
37;; duplicate code-pages stuff.
38
39;; Note that 8859-5 maps directly onto the Unicode Cyrillic block,
40;; apart from codepoints 160 (NBSP, c.f. U+0400), 173 (soft hyphen,
41;; c.f. U+04OD) and 253 (section sign, c.f U+045D). The KOI-8 and
42;; Alternativnyj coding systems encode both 8859-5 and Unicode.
43;; ucs-tables.el provides unification for cyrillic-iso-8bit.
44
d98276be 45;; Customizing `utf-fragment-on-decoding' allows decoding characters
6f27e0f9
DL		 46;; from KOI and Alternativnyj into 8859-5 where that's possible.
47;; cyrillic-iso8859-5 characters take half as much space in the buffer
48;; as the mule-unicode-0100-24ff equivalents, though that's probably
49;; not normally a big deal.
4ed46869
KH		 50
51;;; Code:
52
5f1d80c7
KH		 53;; Cyrillic (general)
54
6f27e0f9 55;; ISO-8859-5 stuff
2b01336d 56
4ed46869 57(make-coding-system
efbc7e89 58 'cyrillic-iso-8bit 2 ?5
5ef35063 59 "ISO 2022 based 8-bit encoding for Cyrillic script (MIME:ISO-8859-5)."
11b77f14 60 '(ascii cyrillic-iso8859-5 nil nil
6de22aea 61 nil nil nil nil nil nil nil nil nil nil nil t)
11b77f14
KH		 62 '((safe-charsets ascii cyrillic-iso8859-5)
63 (mime-charset . iso-8859-5)))
4ed46869 64
71eabd24 65(define-coding-system-alias 'iso-8859-5 'cyrillic-iso-8bit)
efbc7e89 66
5f1d80c7 67(set-language-info-alist
a564ccf9 68 "Cyrillic-ISO" '((charset cyrillic-iso8859-5)
11b77f14
KH		 69 (coding-system cyrillic-iso-8bit)
70 (coding-priority cyrillic-iso-8bit)
6f27e0f9 71 (input-method . "cyrillic-yawerty") ; fixme
a564ccf9
KH		 72 (nonascii-translation . cyrillic-iso8859-5)
73 (unibyte-display . cyrillic-iso-8bit)
74 (features cyril-util)
5f1d80c7 75 (sample-text . "Russian (\e,L@caaZXY\e(B) \e,L7T`PRabRcYbU\e(B!")
11b77f14
KH		 76 (documentation . "Support for Cyrillic ISO-8859-5."))
77 '("Cyrillic"))
5f1d80c7 78
6f27e0f9 79;; KOI-8R stuff
2b01336d 80
6f27e0f9
DL		 81;; The mule-unicode portion of this is from
82;; http://www.unicode.org/Public/MAPPINGS/VENDORS/MISC/KOI8-R.TXT,
83;; which references RFC 1489.
70c58a1f
KH		 84(defvar cyrillic-koi8-r-decode-table
85 [
86 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
87 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31
88 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47
89 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63
90 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79
91 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95
92 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111
93 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127
6f27e0f9
DL		 94 ;; 8859-5 plus Unicode
95 ?\e$,2 \e(B ?\e$,2 "\e(B ?\e$,2 ,\e(B ?\e$,2 0\e(B ?\e$,2 4\e(B ?\e$,2 8\e(B ?\e$,2 <\e(B ?\e$,2 D\e(B ?\e$,2 L\e(B ?\e$,2 T\e(B ?\e$,2 \\e(B ?\e$,2!@\e(B ?\e$,2!D\e(B ?\e$,2!H\e(B ?\e$,2!L\e(B ?\e$,2!P\e(B
96 ?\e$,2!Q\e(B ?\e$,2!R\e(B ?\e$,2!S\e(B ?\e$,1{ \e(B ?\e$,2!`\e(B ?\e$,1s"\e(B ?\e$,1x:\e(B ?\e$,1xh\e(B ?\e$,1y$\e(B ?\e$,1y%\e(B ?\e,L \e(B ?\e$,1{!\e(B ?\e,A0\e(B ?\e,A2\e(B ?\e,A7\e(B ?\e,Aw\e(B
97 ?\e$,2 p\e(B ?\e$,2 q\e(B ?\e$,2 r\e(B ?\e,Lq\e(B ?\e$,2 s\e(B ?\e$,2 t\e(B ?\e$,2 u\e(B ?\e$,2 v\e(B ?\e$,2 w\e(B ?\e$,2 x\e(B ?\e$,2 y\e(B ?\e$,2 z\e(B ?\e$,2 {\e(B ?\e$,2 |\e(B ?\e$,2 }\e(B ?\e$,2 ~\e(B
98 ?\e$,2 \7f\e(B ?\e$,2! \e(B ?\e$,2!!\e(B ?\e,L!\e(B ?\e$,2!"\e(B ?\e$,2!#\e(B ?\e$,2!$\e(B ?\e$,2!%\e(B ?\e$,2!&\e(B ?\e$,2!'\e(B ?\e$,2!(\e(B ?\e$,2!)\e(B ?\e$,2!*\e(B ?\e$,2!+\e(B ?\e$,2!,\e(B ?\e,A)\e(B
99 ?\e,Ln\e(B ?\e,LP\e(B ?\e,LQ\e(B ?\e,Lf\e(B ?\e,LT\e(B ?\e,LU\e(B ?\e,Ld\e(B ?\e,LS\e(B ?\e,Le\e(B ?\e,LX\e(B ?\e,LY\e(B ?\e,LZ\e(B ?\e,L[\e(B ?\e,L\\e(B ?\e,L]\e(B ?\e,L^\e(B
100 ?\e,L_\e(B ?\e,Lo\e(B ?\e,L`\e(B ?\e,La\e(B ?\e,Lb\e(B ?\e,Lc\e(B ?\e,LV\e(B ?\e,LR\e(B ?\e,Ll\e(B ?\e,Lk\e(B ?\e,LW\e(B ?\e,Lh\e(B ?\e,Lm\e(B ?\e,Li\e(B ?\e,Lg\e(B ?\e,Lj\e(B
101 ?\e,LN\e(B ?\e,L0\e(B ?\e,L1\e(B ?\e,LF\e(B ?\e,L4\e(B ?\e,L5\e(B ?\e,LD\e(B ?\e,L3\e(B ?\e,LE\e(B ?\e,L8\e(B ?\e,L9\e(B ?\e,L:\e(B ?\e,L;\e(B ?\e,L<\e(B ?\e,L=\e(B ?\e,L>\e(B
102 ?\e,L?\e(B ?\e,LO\e(B ?\e,L@\e(B ?\e,LA\e(B ?\e,LB\e(B ?\e,LC\e(B ?\e,L6\e(B ?\e,L2\e(B ?\e,LL\e(B ?\e,LK\e(B ?\e,L7\e(B ?\e,LH\e(B ?\e,LM\e(B ?\e,LI\e(B ?\e,LG\e(B ?\e,LJ\e(B
103 ;; All Unicode:
104;; ?\e$,2 \e(B ?\e$,2 "\e(B ?\e$,2 ,\e(B ?\e$,2 0\e(B ?\e$,2 4\e(B ?\e$,2 8\e(B ?\e$,2 <\e(B ?\e$,2 D\e(B ?\e$,2 L\e(B ?\e$,2 T\e(B ?\e$,2 \\e(B ?\e$,2!@\e(B ?\e$,2!D\e(B ?\e$,2!H\e(B ?\e$,2!L\e(B ?\e$,2!P\e(B
105;; ?\e$,2!Q\e(B ?\e$,2!R\e(B ?\e$,2!S\e(B ?\e$,1{ \e(B ?\e$,2!`\e(B ?\e$,1s"\e(B ?\e$,1x:\e(B ?\e$,1xh\e(B ?\e$,1y$\e(B ?\e$,1y%\e(B ?\e,A \e(B ?\e$,1{!\e(B ?\e,A0\e(B ?\e,A2\e(B ?\e,A7\e(B ?\e,Aw\e(B
106;; ?\e$,2 p\e(B ?\e$,2 q\e(B ?\e$,2 r\e(B ?\e$,1(q\e(B ?\e$,2 s\e(B ?\e$,2 t\e(B ?\e$,2 u\e(B ?\e$,2 v\e(B ?\e$,2 w\e(B ?\e$,2 x\e(B ?\e$,2 y\e(B ?\e$,2 z\e(B ?\e$,2 {\e(B ?\e$,2 |\e(B ?\e$,2 }\e(B ?\e$,2 ~\e(B
107;; ?\e$,2 \7f\e(B ?\e$,2! \e(B ?\e$,2!!\e(B ?\e$,1(!\e(B ?\e$,2!"\e(B ?\e$,2!#\e(B ?\e$,2!$\e(B ?\e$,2!%\e(B ?\e$,2!&\e(B ?\e$,2!'\e(B ?\e$,2!(\e(B ?\e$,2!)\e(B ?\e$,2!*\e(B ?\e$,2!+\e(B ?\e$,2!,\e(B ?\e,A)\e(B
108;; ?\e$,1(n\e(B ?\e$,1(P\e(B ?\e$,1(Q\e(B ?\e$,1(f\e(B ?\e$,1(T\e(B ?\e$,1(U\e(B ?\e$,1(d\e(B ?\e$,1(S\e(B ?\e$,1(e\e(B ?\e$,1(X\e(B ?\e$,1(Y\e(B ?\e$,1(Z\e(B ?\e$,1([\e(B ?\e$,1(\\e(B ?\e$,1(]\e(B ?\e$,1(^\e(B
109;; ?\e$,1(_\e(B ?\e$,1(o\e(B ?\e$,1(`\e(B ?\e$,1(a\e(B ?\e$,1(b\e(B ?\e$,1(c\e(B ?\e$,1(V\e(B ?\e$,1(R\e(B ?\e$,1(l\e(B ?\e$,1(k\e(B ?\e$,1(W\e(B ?\e$,1(h\e(B ?\e$,1(m\e(B ?\e$,1(i\e(B ?\e$,1(g\e(B ?\e$,1(j\e(B
110;; ?\e$,1(N\e(B ?\e$,1(0\e(B ?\e$,1(1\e(B ?\e$,1(F\e(B ?\e$,1(4\e(B ?\e$,1(5\e(B ?\e$,1(D\e(B ?\e$,1(3\e(B ?\e$,1(E\e(B ?\e$,1(8\e(B ?\e$,1(9\e(B ?\e$,1(:\e(B ?\e$,1(;\e(B ?\e$,1(<\e(B ?\e$,1(=\e(B ?\e$,1(>\e(B
111;; ?\e$,1(?\e(B ?\e$,1(O\e(B ?\e$,1(@\e(B ?\e$,1(A\e(B ?\e$,1(B\e(B ?\e$,1(C\e(B ?\e$,1(6\e(B ?\e$,1(2\e(B ?\e$,1(L\e(B ?\e$,1(K\e(B ?\e$,1(7\e(B ?\e$,1(H\e(B ?\e$,1(M\e(B ?\e$,1(I\e(B ?\e$,1(G\e(B ?\e$,1(J\e(B
112 ]
70c58a1f
KH		 113 "Cyrillic KOI8-R decoding table.")
114
1f487ef8
KH		 115(let ((table (make-translation-table-from-vector
116 cyrillic-koi8-r-decode-table)))
117 (define-translation-table 'cyrillic-koi8-r-nonascii-translation-table table)
118 (define-translation-table 'cyrillic-koi8-r-encode-table
119 (char-table-extra-slot table 0)))
70c58a1f 120
6f27e0f9
DL		 121;; No point in keeping it around. (It can't be let-bound, since it's
122;; needed for macro expansion.)
123(makunbound 'cyrillic-koi8-r-decode-table)
124
2b01336d 125(define-ccl-program ccl-decode-koi8
6f27e0f9 126 `(4
1f487ef8
KH		 127 ((loop
128 (r0 = 0)
129 (read r1)
130 (if (r1 < 128)
131 (write-repeat r1)
132 ((translate-character cyrillic-koi8-r-nonascii-translation-table r0 r1)
d98276be 133 (translate-character ucs-translation-table-for-decode r0 r1)
1f487ef8
KH		 134 (write-multibyte-character r0 r1)
135 (repeat))))))
6f27e0f9 136 "CCL program to decode KOI8-R.")
2b01336d
KH		 137
138(define-ccl-program ccl-encode-koi8
139 `(1
1f487ef8
KH		 140 ((loop
141 (read-multibyte-character r0 r1)
6f27e0f9 142 (translate-character cyrillic-koi8-r-encode-table r0 r1)
58566dff
KH		 143 (if (r0 != ,(charset-id 'ascii))
144 (if (r0 != ,(charset-id 'eight-bit-graphic))
145 (if (r0 != ,(charset-id 'eight-bit-control))
146 (r1 = ??))))
1f487ef8 147 (write-repeat r1))))
6f27e0f9
DL		 148 "CCL program to encode KOI8-R.")
149
150(defun cyrillic-unify-encoding (table)
151 "Set up equivalent characters in the encoding TABLE.
d98276be 152This works whether or not the table is Unicode-based or
6f27e0f9
DL		 1538859-5-based. (Only appropriate for Cyrillic.)"
154 (let ((table (get table 'translation-table)))
155 (dotimes (i 96)
156 (let* ((c (make-char 'cyrillic-iso8859-5 (+ i 32)))
157 (u ; equivalent Unicode char
158 (cond ((eq c ?\e,L \e(B) ?\e,A \e(B)
159 ((eq c ?\e,L-\e(B) ?\e,A-\e(B)
160 ((eq c ?\e,L}\e(B) ?\e,A'\e(B)
161 (t (decode-char 'ucs (+ #x400 i)))))
162 (ec (aref table c)) ; encoding of 8859-5
163 (uc (aref table u))) ; encoding of Unicode
164 (unless (memq c '(?\e,L \e(B ?\e,L-\e(B ?\e,L}\e(B)) ; 8859-5 exceptions
165 (unless uc
166 (aset table u ec))
167 (unless ec
168 (aset table c uc)))))))
169
170(cyrillic-unify-encoding 'cyrillic-koi8-r-encode-table)
171
2b01336d 172(make-coding-system
4b9121fc 173 'cyrillic-koi8 4
49716ecd
RS		 174 ;; We used to use ?K. It is true that ?K is more strictly correct,
175 ;; but it is also used for Korean.
176 ;; So people who use koi8 for languages other than Russian
177 ;; will have to forgive us.
6f27e0f9 178 ?R "KOI8-R 8-bit encoding for Cyrillic (MIME: KOI8-R)."
7fbf766f 179 '(ccl-decode-koi8 . ccl-encode-koi8)
6f27e0f9 180 `((safe-chars . cyrillic-koi8-r-encode-table)
70c58a1f 181 (mime-charset . koi8-r)
d98276be
KH		 182 (valid-codes (0 . 255))
183 (dependency unify-8859-on-encoding-mode unify-8859-on-decoding-mode)))
2b01336d 184
71eabd24
RS		 185(define-coding-system-alias 'koi8-r 'cyrillic-koi8)
186(define-coding-system-alias 'koi8 'cyrillic-koi8)
6f27e0f9
DL		 187(define-coding-system-alias 'cp878 'cyrillic-koi8)
188
7be5dbd4
KH		 189(let ((elt `("koi8-r" koi8-r 1
190 ,(get 'cyrillic-koi8-r-encode-table 'translation-table)))
191 (slot (assoc "koi8-r" ctext-non-standard-encodings-alist)))
192 (if slot
193 (setcdr slot (cdr elt))
194 (push elt ctext-non-standard-encodings-alist)))
195
6f27e0f9
DL		 196;; Allow displaying some of KOI & al with an 8859-5-encoded font. We
197;; won't bother about the exceptions when encoding the font, since
198;; NBSP will fall through below and work anyhow, and we'll have
199;; avoided setting the fontset for the other two to 8859-5 -- they're
200;; not in KOI and Alternativnyj anyhow.
201(define-ccl-program ccl-encode-8859-5-font
202 `(0
203 ((if (r0 == ,(charset-id 'cyrillic-iso8859-5))
204 (r1 += 128)
205 (if (r0 == ,(charset-id 'mule-unicode-0100-24ff))
206 (r1 = (r2 + 128))))))
207 "Encode ISO 8859-5 and Cyrillic Unicode chars to 8859-5 font.")
208
209(add-to-list 'font-ccl-encoder-alist '("iso8859-5" . ccl-encode-8859-5-font))
2b01336d 210
6f27e0f9 211;; The table is set up later to encode both Unicode and 8859-5.
2b01336d 212(define-ccl-program ccl-encode-koi8-font
70c58a1f 213 `(0
fd162724
KH		 214 (if (r2 >= 0)
215 ((r1 <<= 7)
216 (r1 += r2)))
6f27e0f9 217 (translate-character cyrillic-koi8-r-encode-table r0 r1))
2b01336d
KH		 218 "CCL program to encode Cyrillic chars to KOI font.")
219
6f27e0f9 220(add-to-list 'font-ccl-encoder-alist '("koi8" . ccl-encode-koi8-font))
70c58a1f 221
5f1d80c7 222(set-language-info-alist
a564ccf9
KH		 223 "Cyrillic-KOI8" `((charset cyrillic-iso8859-5)
224 (nonascii-translation
1f487ef8
KH		 225 . ,(get 'cyrillic-koi8-r-nonascii-translation-table
226 'translation-table))
11b77f14 227 (coding-system cyrillic-koi8)
6f27e0f9 228 (coding-priority cyrillic-koi8 cyrillic-iso-8bit)
a503f8b7 229 (ctext-non-standard-encodings "koi8-r")
76509389 230 (input-method . "russian-typewriter")
a564ccf9
KH		 231 (features cyril-util)
232 (unibyte-display . cyrillic-koi8)
5f1d80c7 233 (sample-text . "Russian (\e,L@caaZXY\e(B) \e,L7T`PRabRcYbU\e(B!")
70c58a1f 234 (documentation . "Support for Cyrillic KOI8-R."))
11b77f14 235 '("Cyrillic"))
5f1d80c7 236
76509389
DL		 237(set-language-info-alist
238 "Russian" `((charset cyrillic-iso8859-5)
239 (nonascii-translation
240 . ,(get 'cyrillic-koi8-r-nonascii-translation-table
241 'translation-table))
242 (coding-system cyrillic-koi8)
243 (coding-priority cyrillic-koi8 cyrillic-iso-8bit)
244 (input-method . "russian-computer")
245 (features cyril-util)
246 (unibyte-display . cyrillic-koi8)
247 (sample-text . "Russian (\e,L@caaZXY\e(B) \e,L7T`PRabRcYbU\e(B!")
248 (documentation . "\
249Support for Russian using koi8-r and the russian-computer input method.")
250 (tutorial . "TUTORIAL.ru"))
251 '("Cyrillic"))
252
6f27e0f9
DL		 253
254(defvar cyrillic-koi8-u-decode-table
255 [
256 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
257 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31
258 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47
259 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63
260 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79
261 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95
262 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111
263 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127
264 ;; All Unicode:
265;; ?\e$,2 \e(B ?\e$,2 "\e(B ?\e$,2 ,\e(B ?\e$,2 0\e(B ?\e$,2 4\e(B ?\e$,2 8\e(B ?\e$,2 <\e(B ?\e$,2 D\e(B ?\e$,2 L\e(B ?\e$,2 T\e(B ?\e$,2 \\e(B ?\e$,2!@\e(B ?\e$,2!D\e(B ?\e$,2!H\e(B ?\e$,2!L\e(B ?\e$,2!P\e(B
266;; ?\e$,2!Q\e(B ?\e$,2!R\e(B ?\e$,2!S\e(B ?\e$,1{ \e(B ?\e$,2!`\e(B ?\e$,1x9\e(B ?\e$,1x:\e(B ?\e$,1xh\e(B ?\e$,1y$\e(B ?\e$,1y%\e(B ?\e,L \e(B ?\e$,1{!\e(B ?\e,A0\e(B ?\e,A2\e(B ?\e,A7\e(B ?\e,Aw\e(B
267;; ?\e$,2 p\e(B ?\e$,2 q\e(B ?\e$,2 r\e(B ?\e$,1(q\e(B ?\e$,1(t\e(B ?\e$,2 t\e(B ?\e$,1(v\e(B ?\e$,1(w\e(B ?\e$,2 w\e(B ?\e$,2 x\e(B ?\e$,2 y\e(B ?\e$,2 z\e(B ?\e$,2 {\e(B ?\e$,1)Q\e(B ?\e$,2 }\e(B ?\e$,2 ~\e(B
268;; ?\e$,2 \7f\e(B ?\e$,2! \e(B ?\e$,2!!\e(B ?\e$,1(!\e(B ?\e$,1($\e(B ?\e$,2!#\e(B ?\e$,1(&\e(B ?\e$,1('\e(B ?\e$,2!&\e(B ?\e$,2!'\e(B ?\e$,2!(\e(B ?\e$,2!)\e(B ?\e$,2!*\e(B ?\e$,1)P\e(B ?\e$,2!,\e(B ?\e,A)\e(B
269;; ?\e$,1(n\e(B ?\e$,1(P\e(B ?\e$,1(Q\e(B ?\e$,1(f\e(B ?\e$,1(T\e(B ?\e$,1(U\e(B ?\e$,1(d\e(B ?\e$,1(S\e(B ?\e$,1(e\e(B ?\e$,1(X\e(B ?\e$,1(Y\e(B ?\e$,1(Z\e(B ?\e$,1([\e(B ?\e$,1(\\e(B ?\e$,1(]\e(B ?\e$,1(^\e(B
270;; ?\e$,1(_\e(B ?\e$,1(o\e(B ?\e$,1(`\e(B ?\e$,1(a\e(B ?\e$,1(b\e(B ?\e$,1(c\e(B ?\e$,1(V\e(B ?\e$,1(R\e(B ?\e$,1(l\e(B ?\e$,1(k\e(B ?\e$,1(W\e(B ?\e$,1(h\e(B ?\e$,1(m\e(B ?\e$,1(i\e(B ?\e$,1(g\e(B ?\e$,1(j\e(B
271;; ?\e$,1(N\e(B ?\e$,1(0\e(B ?\e$,1(1\e(B ?\e$,1(F\e(B ?\e$,1(4\e(B ?\e$,1(5\e(B ?\e$,1(D\e(B ?\e$,1(3\e(B ?\e$,1(E\e(B ?\e$,1(8\e(B ?\e$,1(9\e(B ?\e$,1(:\e(B ?\e$,1(;\e(B ?\e$,1(<\e(B ?\e$,1(=\e(B ?\e$,1(>\e(B
272;; ?\e$,1(?\e(B ?\e$,1(O\e(B ?\e$,1(@\e(B ?\e$,1(A\e(B ?\e$,1(B\e(B ?\e$,1(C\e(B ?\e$,1(6\e(B ?\e$,1(2\e(B ?\e$,1(L\e(B ?\e$,1(K\e(B ?\e$,1(7\e(B ?\e$,1(H\e(B ?\e$,1(M\e(B ?\e$,1(I\e(B ?\e$,1(G\e(B ?\e$,1(J\e(B
273;; 8859-5 plus Unicode:
274 ?\e$,2 \e(B ?\e$,2 "\e(B ?\e$,2 ,\e(B ?\e$,2 0\e(B ?\e$,2 4\e(B ?\e$,2 8\e(B ?\e$,2 <\e(B ?\e$,2 D\e(B ?\e$,2 L\e(B ?\e$,2 T\e(B ?\e$,2 \\e(B ?\e$,2!@\e(B ?\e$,2!D\e(B ?\e$,2!H\e(B ?\e$,2!L\e(B ?\e$,2!P\e(B
275 ?\e$,2!Q\e(B ?\e$,2!R\e(B ?\e$,2!S\e(B ?\e$,1{ \e(B ?\e$,2!`\e(B ?\e$,1x9\e(B ?\e$,1x:\e(B ?\e$,1xh\e(B ?\e$,1y$\e(B ?\e$,1y%\e(B ?\e,L \e(B ?\e$,1{!\e(B ?\e,A0\e(B ?\e,A2\e(B ?\e,A7\e(B ?\e,Aw\e(B
276 ?\e$,2 p\e(B ?\e$,2 q\e(B ?\e$,2 r\e(B ?\e,Lq\e(B ?\e,Lt\e(B ?\e$,2 t\e(B ?\e,Lv\e(B ?\e,Lw\e(B ?\e$,2 w\e(B ?\e$,2 x\e(B ?\e$,2 y\e(B ?\e$,2 z\e(B ?\e$,2 {\e(B ?\e$,1)Q\e(B ?\e$,2 }\e(B ?\e$,2 ~\e(B
277 ?\e$,2 \7f\e(B ?\e$,2! \e(B ?\e$,2!!\e(B ?\e,L!\e(B ?\e,L$\e(B ?\e$,2!#\e(B ?\e,L&\e(B ?\e,L'\e(B ?\e$,2!&\e(B ?\e$,2!'\e(B ?\e$,2!(\e(B ?\e$,2!)\e(B ?\e$,2!*\e(B ?\e$,1)P\e(B ?\e$,2!,\e(B ?\e,A)\e(B
278 ?\e,Ln\e(B ?\e,LP\e(B ?\e,LQ\e(B ?\e,Lf\e(B ?\e,LT\e(B ?\e,LU\e(B ?\e,Ld\e(B ?\e,LS\e(B ?\e,Le\e(B ?\e,LX\e(B ?\e,LY\e(B ?\e,LZ\e(B ?\e,L[\e(B ?\e,L\\e(B ?\e,L]\e(B ?\e,L^\e(B
279 ?\e,L_\e(B ?\e,Lo\e(B ?\e,L`\e(B ?\e,La\e(B ?\e,Lb\e(B ?\e,Lc\e(B ?\e,LV\e(B ?\e,LR\e(B ?\e,Ll\e(B ?\e,Lk\e(B ?\e,LW\e(B ?\e,Lh\e(B ?\e,Lm\e(B ?\e,Li\e(B ?\e,Lg\e(B ?\e,Lj\e(B
280 ?\e,LN\e(B ?\e,L0\e(B ?\e,L1\e(B ?\e,LF\e(B ?\e,L4\e(B ?\e,L5\e(B ?\e,LD\e(B ?\e,L3\e(B ?\e,LE\e(B ?\e,L8\e(B ?\e,L9\e(B ?\e,L:\e(B ?\e,L;\e(B ?\e,L<\e(B ?\e,L=\e(B ?\e,L>\e(B
281 ?\e,L?\e(B ?\e,LO\e(B ?\e,L@\e(B ?\e,LA\e(B ?\e,LB\e(B ?\e,LC\e(B ?\e,L6\e(B ?\e,L2\e(B ?\e,LL\e(B ?\e,LK\e(B ?\e,L7\e(B ?\e,LH\e(B ?\e,LM\e(B ?\e,LI\e(B ?\e,LG\e(B ?\e,LJ\e(B
282 ]
283 "Cyrillic KOI8-U decoding table.")
284
285(let ((table (make-translation-table-from-vector
286 cyrillic-koi8-u-decode-table)))
287 (define-translation-table 'cyrillic-koi8-u-nonascii-translation-table table)
288 (define-translation-table 'cyrillic-koi8-u-encode-table
289 (char-table-extra-slot table 0)))
290
291(makunbound 'cyrillic-koi8-u-decode-table)
292
293(define-ccl-program ccl-decode-koi8-u
294 `(4
295 ((loop
296 (r0 = 0)
297 (read r1)
298 (if (r1 < 128)
299 (write-repeat r1)
300 ((translate-character cyrillic-koi8-u-nonascii-translation-table r0 r1)
d98276be 301 (translate-character ucs-translation-table-for-decode r0 r1)
6f27e0f9
DL		 302 (write-multibyte-character r0 r1)
303 (repeat))))))
304 "CCL program to decode KOI8-U.")
305
306(define-ccl-program ccl-encode-koi8-u
307 `(1
308 ((loop
309 (read-multibyte-character r0 r1)
310 (translate-character cyrillic-koi8-u-encode-table r0 r1)
58566dff
KH		 311 (if (r0 != ,(charset-id 'ascii))
312 (if (r0 != ,(charset-id 'eight-bit-graphic))
313 (if (r0 != ,(charset-id 'eight-bit-control))
314 (r1 = ??))))
6f27e0f9
DL		 315 (write-repeat r1))))
316 "CCL program to encode KOI8-U.")
317
318(cyrillic-unify-encoding 'cyrillic-koi8-u-encode-table)
319
320(make-coding-system
321 'koi8-u 4
322 ?U "KOI8-U 8-bit encoding for Cyrillic (MIME: KOI8-U)"
323 '(ccl-decode-koi8-u . ccl-encode-koi8-u)
324 `((safe-chars . cyrillic-koi8-u-encode-table)
325 (mime-charset . koi8-u)
d98276be
KH		 326 (valid-codes (0 . 255))
327 (dependency unify-8859-on-encoding-mode unify-8859-on-decoding-mode)))
6f27e0f9
DL		 328
329(define-ccl-program ccl-encode-koi8-u-font
330 `(0
331 (translate-character cyrillic-koi8-u-encode-table r0 r1))
332 "CCL program to encode Cyrillic chars to KOI-U font.")
333
334(add-to-list 'font-ccl-encoder-alist '("koi8-u" . ccl-encode-koi8-u-font))
335
336(set-language-info-alist
337 "Ukrainian" `((coding-system koi8-u)
d98276be 338 (coding-priority koi8-u)
6f27e0f9 339 (nonascii-translation
b9e98de5 340 . ,(get 'cyrillic-koi8-u-nonascii-translation-table
6f27e0f9
DL		 341 'translation-table))
342 (input-method . "ukrainian-computer")
d98276be
KH		 343 (documentation
344 . "Support for Ukrainian with KOI8-U character set."))
6f27e0f9
DL		 345 '("Cyrillic"))
346
347;;; ALTERNATIVNYJ stuff
2b01336d 348
b9e98de5
DL		 349;; Fixme: It's unclear what's the correct table. I've found
350;; statements both that it's the same as cp866 and somewhat different,
1d5f8bfc 351;; but nothing that looks really definitive.
70c58a1f
KH		 352(defvar cyrillic-alternativnyj-decode-table
353 [
354 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
355 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31
356 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47
357 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63
358 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79
359 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95
360 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111
361 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127
6f27e0f9
DL		 362;; ?\e$,1(0\e(B ?\e$,1(1\e(B ?\e$,1(2\e(B ?\e$,1(3\e(B ?\e$,1(4\e(B ?\e$,1(5\e(B ?\e$,1(6\e(B ?\e$,1(7\e(B ?\e$,1(8\e(B ?\e$,1(9\e(B ?\e$,1(:\e(B ?\e$,1(;\e(B ?\e$,1(<\e(B ?\e$,1(=\e(B ?\e$,1(>\e(B ?\e$,1(?\e(B
363;; ?\e$,1(@\e(B ?\e$,1(A\e(B ?\e$,1(B\e(B ?\e$,1(C\e(B ?\e$,1(D\e(B ?\e$,1(E\e(B ?\e$,1(F\e(B ?\e$,1(G\e(B ?\e$,1(H\e(B ?\e$,1(I\e(B ?\e$,1(J\e(B ?\e$,1(K\e(B ?\e$,1(L\e(B ?\e$,1(M\e(B ?\e$,1(N\e(B ?\e$,1(O\e(B
364;; ?\e$,1(P\e(B ?\e$,1(Q\e(B ?\e$,1(R\e(B ?\e$,1(S\e(B ?\e$,1(T\e(B ?\e$,1(U\e(B ?\e$,1(V\e(B ?\e$,1(W\e(B ?\e$,1(X\e(B ?\e$,1(Y\e(B ?\e$,1(Z\e(B ?\e$,1([\e(B ?\e$,1(\\e(B ?\e$,1(]\e(B ?\e$,1(^\e(B ?\e$,1(_\e(B
365;; ?\e$,2!Q\e(B ?\e$,2!R\e(B ?\e$,2!S\e(B ?\e$,2 "\e(B ?\e$,2 D\e(B ?\e$,2!!\e(B ?\e$,2!"\e(B ?\e$,2 v\e(B ?\e$,2 u\e(B ?\e$,2!#\e(B ?\e$,2 q\e(B ?\e$,2 w\e(B ?\e$,2 }\e(B ?\e$,2 |\e(B ?\e$,2 {\e(B ?\e$,2 0\e(B
366;; ?\e$,2 4\e(B ?\e$,2 T\e(B ?\e$,2 L\e(B ?\e$,2 <\e(B ?\e$,2 \e(B ?\e$,2 \\e(B ?\e$,2 ~\e(B ?\e$,2 \7f\e(B ?\e$,2 z\e(B ?\e$,2 t\e(B ?\e$,2!)\e(B ?\e$,2!&\e(B ?\e$,2! \e(B ?\e$,2 p\e(B ?\e$,2!,\e(B ?\e$,2!'\e(B
367;; ?\e$,2!(\e(B ?\e$,2!$\e(B ?\e$,2!%\e(B ?\e$,2 y\e(B ?\e$,2 x\e(B ?\e$,2 r\e(B ?\e$,2 s\e(B ?\e$,2!+\e(B ?\e$,2!*\e(B ?\e$,2 8\e(B ?\e$,2 ,\e(B ?\e$,2!H\e(B ?\e$,2!D\e(B ?\e$,2!L\e(B ?\e$,2!P\e(B ?\e$,2!@\e(B
368;; ?\e$,1(`\e(B ?\e$,1(a\e(B ?\e$,1(b\e(B ?\e$,1(c\e(B ?\e$,1(d\e(B ?\e$,1(e\e(B ?\e$,1(f\e(B ?\e$,1(g\e(B ?\e$,1(h\e(B ?\e$,1(i\e(B ?\e$,1(j\e(B ?\e$,1(k\e(B ?\e$,1(l\e(B ?\e$,1(m\e(B ?\e$,1(n\e(B ?\e$,1(o\e(B
1d5f8bfc 369;; ?\e$,1(!\e(B ?\e$,1(q\e(B ?\e$,1ry\e(B ?\e$,1rx\e(B ?\e$,1%A\e(B ?\e$,1%@\e(B ?\e$,1s:\e(B ?\e$,1s9\e(B ?\e$,1vq\e(B ?\e$,1vs\e(B ?\e,A1\e(B ?\e,Aw\e(B ?\e$,1uV\e(B ?\e,A$\e(B ?\e$,2!`\e(B ?\e,A \e(B ;
6f27e0f9 370;; 8859+Unicode
70c58a1f
KH		 371 ?\e,L0\e(B ?\e,L1\e(B ?\e,L2\e(B ?\e,L3\e(B ?\e,L4\e(B ?\e,L5\e(B ?\e,L6\e(B ?\e,L7\e(B ?\e,L8\e(B ?\e,L9\e(B ?\e,L:\e(B ?\e,L;\e(B ?\e,L<\e(B ?\e,L=\e(B ?\e,L>\e(B ?\e,L?\e(B
372 ?\e,L@\e(B ?\e,LA\e(B ?\e,LB\e(B ?\e,LC\e(B ?\e,LD\e(B ?\e,LE\e(B ?\e,LF\e(B ?\e,LG\e(B ?\e,LH\e(B ?\e,LI\e(B ?\e,LJ\e(B ?\e,LK\e(B ?\e,LL\e(B ?\e,LM\e(B ?\e,LN\e(B ?\e,LO\e(B
373 ?\e,LP\e(B ?\e,LQ\e(B ?\e,LR\e(B ?\e,LS\e(B ?\e,LT\e(B ?\e,LU\e(B ?\e,LV\e(B ?\e,LW\e(B ?\e,LX\e(B ?\e,LY\e(B ?\e,LZ\e(B ?\e,L[\e(B ?\e,L\\e(B ?\e,L]\e(B ?\e,L^\e(B ?\e,L_\e(B
6f27e0f9
DL		 374 ?\e$,2!Q\e(B ?\e$,2!R\e(B ?\e$,2!S\e(B ?\e$,2 "\e(B ?\e$,2 D\e(B ?\e$,2!!\e(B ?\e$,2!"\e(B ?\e$,2 v\e(B ?\e$,2 u\e(B ?\e$,2!#\e(B ?\e$,2 q\e(B ?\e$,2 w\e(B ?\e$,2 }\e(B ?\e$,2 |\e(B ?\e$,2 {\e(B ?\e$,2 0\e(B
375 ?\e$,2 4\e(B ?\e$,2 T\e(B ?\e$,2 L\e(B ?\e$,2 <\e(B ?\e$,2 \e(B ?\e$,2 \\e(B ?\e$,2 ~\e(B ?\e$,2 \7f\e(B ?\e$,2 z\e(B ?\e$,2 t\e(B ?\e$,2!)\e(B ?\e$,2!&\e(B ?\e$,2! \e(B ?\e$,2 p\e(B ?\e$,2!,\e(B ?\e$,2!'\e(B
376 ?\e$,2!(\e(B ?\e$,2!$\e(B ?\e$,2!%\e(B ?\e$,2 y\e(B ?\e$,2 x\e(B ?\e$,2 r\e(B ?\e$,2 s\e(B ?\e$,2!+\e(B ?\e$,2!*\e(B ?\e$,2 8\e(B ?\e$,2 ,\e(B ?\e$,2!H\e(B ?\e$,2!D\e(B ?\e$,2!L\e(B ?\e$,2!P\e(B ?\e$,2!@\e(B
70c58a1f 377 ?\e,L`\e(B ?\e,La\e(B ?\e,Lb\e(B ?\e,Lc\e(B ?\e,Ld\e(B ?\e,Le\e(B ?\e,Lf\e(B ?\e,Lg\e(B ?\e,Lh\e(B ?\e,Li\e(B ?\e,Lj\e(B ?\e,Lk\e(B ?\e,Ll\e(B ?\e,Lm\e(B ?\e,Ln\e(B ?\e,Lo\e(B
1d5f8bfc
KH		 378 ;; Taken from http://www.cyrillic.com/ref/cyrillic/koi-8alt.html
379 ;; with guesses for the Unicodes of the glyphs in the absence of a
380 ;; table.
381 ?\e,L!\e(B ?\e,Lq\e(B ?\e$,1ry\e(B ?\e$,1rx\e(B ?\e$,1%A\e(B ?\e$,1%@\e(B ?\e$,1s:\e(B ?\e$,1s9\e(B ?\e$,1vq\e(B ?\e$,1vs\e(B ?\e,A1\e(B ?\e,Aw\e(B ?\e,Lp\e(B ?\e,A$\e(B ?\e$,2!`\e(B ?\e,L \e(B]
70c58a1f
KH		 382 "Cyrillic ALTERNATIVNYJ decoding table.")
383
1f487ef8
KH		 384(let ((table (make-translation-table-from-vector
385 cyrillic-alternativnyj-decode-table)))
386 (define-translation-table 'cyrillic-alternativnyj-nonascii-translation-table
70c58a1f 387 table)
1f487ef8
KH		 388 (define-translation-table 'cyrillic-alternativnyj-encode-table
389 (char-table-extra-slot table 0)))
70c58a1f 390
6f27e0f9 391(makunbound 'cyrillic-alternativnyj-decode-table)
70c58a1f 392
2b01336d 393(define-ccl-program ccl-decode-alternativnyj
6f27e0f9 394 `(4
1f487ef8
KH		 395 ((loop
396 (r0 = 0)
397 (read r1)
398 (if (r1 < 128)
399 (write-repeat r1)
400 ((translate-character cyrillic-alternativnyj-nonascii-translation-table
401 r0 r1)
d98276be 402 (translate-character ucs-translation-table-for-decode r0 r1)
1f487ef8
KH		 403 (write-multibyte-character r0 r1)
404 (repeat))))))
2b01336d
KH		 405 "CCL program to decode Alternativnyj.")
406
407(define-ccl-program ccl-encode-alternativnyj
408 `(1
1f487ef8
KH		 409 ((loop
410 (read-multibyte-character r0 r1)
53a1db80 411 (translate-character cyrillic-alternativnyj-encode-table r0 r1)
58566dff
KH		 412 (if (r0 != ,(charset-id 'ascii))
413 (if (r0 != ,(charset-id 'eight-bit-graphic))
414 (if (r0 != ,(charset-id 'eight-bit-control))
415 (r1 = ??))))
1f487ef8 416 (write-repeat r1))))
2b01336d 417 "CCL program to encode Alternativnyj.")
6f27e0f9
DL		 418
419(cyrillic-unify-encoding 'cyrillic-alternativnyj-encode-table)
420
2b01336d 421(make-coding-system
efbc7e89 422 'cyrillic-alternativnyj 4 ?A
1d5f8bfc 423 "ALTERNATIVNYJ 8-bit encoding for Cyrillic."
7fbf766f 424 '(ccl-decode-alternativnyj . ccl-encode-alternativnyj)
6f27e0f9
DL		 425 `((safe-chars . cyrillic-alternativnyj-encode-table)
426 (valid-codes (0 . 255))
d98276be 427 (dependency unify-8859-on-encoding-mode unify-8859-on-decoding-mode)))
2b01336d 428
71eabd24 429(define-coding-system-alias 'alternativnyj 'cyrillic-alternativnyj)
efbc7e89 430
2b01336d 431(define-ccl-program ccl-encode-alternativnyj-font
6f27e0f9
DL		 432 `(0
433 (translate-character cyrillic-alternativnyj-encode-table r0 r1))
2b01336d
KH		 434 "CCL program to encode Cyrillic chars to Alternativnyj font.")
435
6f27e0f9
DL		 436(add-to-list 'font-ccl-encoder-alist
437 '("alternativnyj" . ccl-encode-alternativnyj-font))
2b01336d 438
4ed46869 439(set-language-info-alist
a564ccf9
KH		 440 "Cyrillic-ALT" `((charset cyrillic-iso8859-5)
441 (nonascii-translation
1f487ef8
KH		 442 . ,(get 'cyrillic-alternativnyj-nonascii-translation-table
443 'translation-table))
11b77f14
KH		 444 (coding-system cyrillic-alternativnyj)
445 (coding-priority cyrillic-alternativnyj)
6f27e0f9 446 (input-method . "russian-typewriter")
a564ccf9
KH		 447 (features cyril-util)
448 (unibyte-display . cyrillic-alternativnyj)
5f1d80c7 449 (sample-text . "Russian (\e,L@caaZXY\e(B) \e,L7T`PRabRcYbU\e(B!")
11b77f14
KH		 450 (documentation . "Support for Cyrillic ALTERNATIVNYJ."))
451 '("Cyrillic"))
4ed46869 452
6f27e0f9
DL		 453(set-language-info-alist
454 "Tajik" `((coding-system cyrillic-koi8-t)
76509389
DL		 455 (coding-priority cyrillic-koi8-t)
456 (nonascii-translation
457 . ,(get 'decode-koi8-t 'translation-table))
458 (input-method . "russian-typewriter") ; fixme?
459 (features code-pages)
460 (documentation . "Support for Tajik using KOI8-T."))
6f27e0f9
DL		 461 '("Cyrillic"))
462
a9707ecc
DL		 463(eval-and-compile
464 (setq
465 non-iso-charset-alist
466 (cp-make-coding-system
467 windows-1251
468 [?\\e$,1("\e(B ?\\e$,1(#\e(B ?\\e$,1rz\e(B ?\\e$,1(s\e(B ?\\e$,1r~\e(B ?\\e$,1s&\e(B ?\\e$,1s \e(B ?\\e$,1s!\e(B ?\\e$,1tL\e(B ?\\e$,1s0\e(B ?\\e$,1()\e(B ?\\e$,1s9\e(B ?\\e$,1(*\e(B ?\\e$,1(,\e(B ?\\e$,1(+\e(B ?\\e$,1(/\e(B ?\\e$,1(r\e(B
469 ?\\e$,1rx\e(B ?\\e$,1ry\e(B ?\\e$,1r|\e(B ?\\e$,1r}\e(B ?\\e$,1s"\e(B ?\\e$,1rs\e(B ?\\e$,1rt\e(B nil ?\\e$,1ub\e(B ?\\e$,1(y\e(B ?\\e$,1s:\e(B ?\\e$,1(z\e(B ?\\e$,1(|\e(B ?\\e$,1({\e(B ?\\e$,1(\7f\e(B ?\\e,A \e(B ?\\e$,1(.\e(B
470 ?\\e$,1(~\e(B ?\\e$,1((\e(B ?\\e,A$\e(B ?\\e$,1)P\e(B ?\\e,A&\e(B ?\\e,A'\e(B ?\\e$,1(!\e(B ?\\e,A)\e(B ?\\e$,1($\e(B ?\\e,A+\e(B ?\\e,A,\e(B ?\\e,A-\e(B ?\\e,A.\e(B ?\\e$,1('\e(B ?\\e,A0\e(B ?\\e,A1\e(B ?\\e$,1(&\e(B
471 ?\\e$,1(v\e(B ?\\e$,1)Q\e(B ?\\e,A5\e(B ?\\e,A6\e(B ?\\e,A7\e(B ?\\e$,1(q\e(B ?\\e$,1uV\e(B ?\\e$,1(t\e(B ?\\e,A;\e(B ?\\e$,1(x\e(B ?\\e$,1(%\e(B ?\\e$,1(u\e(B ?\\e$,1(w\e(B ?\\e$,1(0\e(B ?\\e$,1(1\e(B ?\\e$,1(2\e(B ?\\e$,1(3\e(B
472 ?\\e$,1(4\e(B ?\\e$,1(5\e(B ?\\e$,1(6\e(B ?\\e$,1(7\e(B ?\\e$,1(8\e(B ?\\e$,1(9\e(B ?\\e$,1(:\e(B ?\\e$,1(;\e(B ?\\e$,1(<\e(B ?\\e$,1(=\e(B ?\\e$,1(>\e(B ?\\e$,1(?\e(B ?\\e$,1(@\e(B ?\\e$,1(A\e(B ?\\e$,1(B\e(B ?\\e$,1(C\e(B ?\\e$,1(D\e(B
473 ?\\e$,1(E\e(B ?\\e$,1(F\e(B ?\\e$,1(G\e(B ?\\e$,1(H\e(B ?\\e$,1(I\e(B ?\\e$,1(J\e(B ?\\e$,1(K\e(B ?\\e$,1(L\e(B ?\\e$,1(M\e(B ?\\e$,1(N\e(B ?\\e$,1(O\e(B ?\\e$,1(P\e(B ?\\e$,1(Q\e(B ?\\e$,1(R\e(B ?\\e$,1(S\e(B ?\\e$,1(T\e(B ?\\e$,1(U\e(B
474 ?\\e$,1(V\e(B ?\\e$,1(W\e(B ?\\e$,1(X\e(B ?\\e$,1(Y\e(B ?\\e$,1(Z\e(B ?\\e$,1([\e(B ?\\e$,1(\\e(B ?\\e$,1(]\e(B ?\\e$,1(^\e(B ?\\e$,1(_\e(B ?\\e$,1(`\e(B ?\\e$,1(a\e(B ?\\e$,1(b\e(B ?\\e$,1(c\e(B ?\\e$,1(d\e(B ?\\e$,1(e\e(B ?\\e$,1(f\e(B
475 ?\\e$,1(g\e(B ?\\e$,1(h\e(B ?\\e$,1(i\e(B ?\\e$,1(j\e(B ?\\e$,1(k\e(B ?\\e$,1(l\e(B ?\\e$,1(m\e(B ?\\e$,1(n\e(B ?\\e$,1(o\e(B] nil ?b)))
476
9e4eea3d
DL		 477(define-coding-system-alias 'cp1251 'windows-1251)
478
52d8246c
KH		 479(let ((elt `("microsoft-cp1251" windows-1251 1
480 ,(get 'encode-windows-1251 'translation-table)))
481 (slot (assoc "microsoft-cp1251" ctext-non-standard-encodings-alist)))
482 (if slot
483 (setcdr slot (cdr elt))
484 (push elt ctext-non-standard-encodings-alist)))
485
fd162724 486(define-ccl-program ccl-encode-windows-1251-font
6a8b9ce4
KH		 487 `(0
488 ((if (r0 == ,(charset-id 'mule-unicode-0100-24ff))
489 ((r1 <<= 7)
490 (r1 += r2)))
491 (translate-character encode-windows-1251 r0 r1))))
fd162724
KH		 492
493(add-to-list 'font-ccl-encoder-alist
494 '("microsoft-cp1251" . ccl-encode-windows-1251-font))
495
6f27e0f9
DL		 496(set-language-info-alist
497 "Bulgarian" `((coding-system windows-1251)
52d8246c
KH		 498 (coding-priority windows-1251)
499 (ctext-non-standard-encodings "microsoft-cp1251")
fd162724
KH		 500 (overriding-fontspec
501 (,(get 'encode-windows-1251 'translation-table)
502 . (nil . "microsoft-cp1251"))
503 (,(get 'cyrillic-koi8-r-encode-table 'translation-table)
504 . (nil . "koi8-r")))
6f27e0f9
DL		 505 (nonascii-translation
506 . ,(get 'decode-windows-1251 'translation-table))
1d5f8bfc 507 (input-method . "bulgarian-bds")
6f27e0f9 508 (documentation
76509389
DL		 509 . "Support for Bulgarian with windows-1251 character set.")
510 (tutorial . "TUTORIAL.bg"))
6f27e0f9
DL		 511 '("Cyrillic"))
512
513(set-language-info-alist
514 "Belarusian" `((coding-system windows-1251)
515 (coding-priority windows-1251)
52d8246c 516 (ctext-non-standard-encodings "microsoft-cp1251")
fd162724
KH		 517 (overriding-fontspec
518 (,(get 'encode-windows-1251 'translation-table)
519 . (nil . "microsoft-cp1251"))
520 (,(get 'cyrillic-koi8-r-encode-table 'translation-table)
521 . (nil . "koi8-r")))
6f27e0f9
DL		 522 (nonascii-translation
523 . ,(get 'decode-windows-1251 'translation-table))
524 (input-method . "belarusian")
6f27e0f9
DL		 525 (documentation
526 . "Support for Belarusian with windows-1251 character set.
527\(The name Belarusian replaced Byelorussian in the early 1990s.)"))
528 '("Cyrillic"))
529
41da80b1
DL		 530(provide 'cyrillic)
531
ab5796a9 532;;; arch-tag: bda71ae0-ba41-4cb6-a6e0-1dff542313d3
4ed46869 533;;; cyrillic.el ends here
Unnamed repository; edit this file 'description' to name the repository.