Mercurial > hg > xemacs-beta
annotate lisp/mule/cyrillic.el @ 4490:67fbcaf3dbdc
error-sequence -> invalid-sequence
2008-08-08 Aidan Kehoe <kehoea@parhasard.net>
* unicode.el:
* mule/mule-cmds.el:
* mule/latin.el:
* mule/cyrillic.el:
Rework the various identifiers using error-sequence to use
invalid-sequence instead.
author | Aidan Kehoe <kehoea@parhasard.net> |
---|---|
date | Fri, 08 Aug 2008 21:17:08 +0200 |
parents | b75b075a9041 |
children | e0a8715fdb1f |
rev | line source |
---|---|
428 | 1 ;;; cyrillic.el --- Support for Cyrillic -*- coding: iso-2022-7bit; -*- |
2 | |
3 ;; Copyright (C) 1995,1999 Electrotechnical Laboratory, JAPAN. | |
4 ;; Licensed to the Free Software Foundation. | |
5 ;; Copyright (C) 1997 MORIOKA Tomohiko | |
788 | 6 ;; Copyright (C) 2001, 2002 Ben Wing. |
4072 | 7 ;; Copyright (C) 2007 Free Software Foundation |
428 | 8 |
9 ;; Keywords: multilingual, Cyrillic | |
10 | |
11 ;; This file is part of XEmacs. | |
12 | |
13 ;; XEmacs is free software; you can redistribute it and/or modify it | |
14 ;; under the terms of the GNU General Public License as published by | |
15 ;; the Free Software Foundation; either version 2, or (at your option) | |
16 ;; any later version. | |
17 | |
18 ;; XEmacs is distributed in the hope that it will be useful, but | |
19 ;; WITHOUT ANY WARRANTY; without even the implied warranty of | |
20 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU | |
21 ;; General Public License for more details. | |
22 | |
23 ;; You should have received a copy of the GNU General Public License | |
24 ;; along with XEmacs; see the file COPYING. If not, write to the Free | |
25 ;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA | |
26 ;; 02111-1307, USA. | |
27 | |
28 ;;; Commentary: | |
29 | |
771 | 30 ;; The character set ISO8859-5 is supported. KOI-8 and ALTERNATIVNYJ are |
31 ;; converted to ISO8859-5 internally. | |
32 | |
428 | 33 ;;; Code: |
34 | |
3767 | 35 ;; Case table: |
3749 | 36 (loop |
37 for (upper lower) | |
38 in '((#xcf #xef) ; YA | |
39 (#xce #xee) ; YU | |
40 (#xcd #xed) ; E | |
41 (#xcc #xec) ; SOFT SIGN | |
42 (#xcb #xeb) ; YERU | |
43 (#xca #xea) ; HARD SIGN | |
44 (#xc9 #xe9) ; SHCHA | |
45 (#xc8 #xe8) ; SHA | |
46 (#xc7 #xe7) ; CHE | |
47 (#xc6 #xe6) ; TSE | |
48 (#xc5 #xe5) ; HA | |
49 (#xc4 #xe4) ; EF | |
50 (#xc3 #xe3) ; U | |
51 (#xc2 #xe2) ; TE | |
52 (#xc1 #xe1) ; ES | |
53 (#xc0 #xe0) ; ER | |
54 (#xbf #xdf) ; PE | |
55 (#xbe #xde) ; O | |
56 (#xbd #xdd) ; EN | |
57 (#xbc #xdc) ; EM | |
58 (#xbb #xdb) ; EL | |
59 (#xba #xda) ; KA | |
60 (#xb9 #xd9) ; SHORT I | |
61 (#xb8 #xd8) ; I | |
62 (#xb7 #xd7) ; ZE | |
63 (#xb6 #xd6) ; ZHE | |
64 (#xb5 #xd5) ; IE | |
65 (#xb4 #xd4) ; DE | |
66 (#xb3 #xd3) ; GHE | |
67 (#xb2 #xd2) ; VE | |
68 (#xb1 #xd1) ; BE | |
69 (#xb0 #xd0) ; A | |
70 (#xaf #xff) ; DZHE | |
71 (#xae #xfe) ; SHORT U | |
72 (#xac #xfc) ; KJE | |
73 (#xab #xfb) ; TSHE | |
74 (#xaa #xfa) ; NJE | |
75 (#xa9 #xf9) ; LJE | |
76 (#xa8 #xf8) ; JE | |
77 (#xa7 #xf7) ; YI | |
78 (#xa6 #xf6) ; BYELORUSSIAN-UKRAINIAN I | |
79 (#xa5 #xf5) ; DZE | |
80 (#xa4 #xf4) ; UKRAINIAN IE | |
81 (#xa3 #xf3) ; GJE | |
82 (#xa2 #xf2) ; DJE | |
83 (#xa1 #xf1)) ; IO | |
84 with case-table = (standard-case-table) | |
85 do | |
86 (put-case-table-pair (make-char 'cyrillic-iso8859-5 upper) | |
4072 | 87 (make-char 'cyrillic-iso8859-5 lower) |
88 case-table)) | |
3749 | 89 |
90 ;; The default character syntax is now word. Pay attention to the | |
3767 | 91 ;; exceptions in ISO-8859-5, copying them from ISO-8859-1. |
92 (loop | |
93 for (latin-1 cyrillic) | |
94 in '((#xAD #xAD) ;; SOFT HYPHEN | |
95 (#xA7 #xFD) ;; SECTION SIGN | |
96 (#xA0 #xA0)) ;; NO BREAK SPACE | |
97 with syntax-table = (standard-syntax-table) | |
98 do (modify-syntax-entry | |
99 (make-char 'cyrillic-iso8859-5 cyrillic) | |
100 (string (char-syntax (make-char 'latin-iso8859-1 latin-1))) | |
101 syntax-table)) | |
102 | |
103 ;; Take NUMERO SIGN's syntax from #. | |
104 (modify-syntax-entry (make-char 'cyrillic-iso8859-5 #xF0) | |
105 (string (char-syntax ?\# (standard-syntax-table))) | |
106 (standard-syntax-table)) | |
778 | 107 |
4072 | 108 ;; And create the coding system. |
4299 | 109 (make-8-bit-coding-system |
110 'iso-8859-5 | |
111 '((#xA1 ?\u0401) ;; CYRILLIC CAPITAL LETTER IO | |
112 (#xA2 ?\u0402) ;; CYRILLIC CAPITAL LETTER DJE | |
113 (#xA3 ?\u0403) ;; CYRILLIC CAPITAL LETTER GJE | |
114 (#xA4 ?\u0404) ;; CYRILLIC CAPITAL LETTER UKRAINIAN IE | |
115 (#xA5 ?\u0405) ;; CYRILLIC CAPITAL LETTER DZE | |
116 (#xA6 ?\u0406) ;; CYRILLIC CAPITAL LETTER BYELORUSSIAN-UKRAINIAN I | |
117 (#xA7 ?\u0407) ;; CYRILLIC CAPITAL LETTER YI | |
118 (#xA8 ?\u0408) ;; CYRILLIC CAPITAL LETTER JE | |
119 (#xA9 ?\u0409) ;; CYRILLIC CAPITAL LETTER LJE | |
120 (#xAA ?\u040A) ;; CYRILLIC CAPITAL LETTER NJE | |
121 (#xAB ?\u040B) ;; CYRILLIC CAPITAL LETTER TSHE | |
122 (#xAC ?\u040C) ;; CYRILLIC CAPITAL LETTER KJE | |
123 (#xAE ?\u040E) ;; CYRILLIC CAPITAL LETTER SHORT U | |
124 (#xAF ?\u040F) ;; CYRILLIC CAPITAL LETTER DZHE | |
125 (#xB0 ?\u0410) ;; CYRILLIC CAPITAL LETTER A | |
126 (#xB1 ?\u0411) ;; CYRILLIC CAPITAL LETTER BE | |
127 (#xB2 ?\u0412) ;; CYRILLIC CAPITAL LETTER VE | |
128 (#xB3 ?\u0413) ;; CYRILLIC CAPITAL LETTER GHE | |
129 (#xB4 ?\u0414) ;; CYRILLIC CAPITAL LETTER DE | |
130 (#xB5 ?\u0415) ;; CYRILLIC CAPITAL LETTER IE | |
131 (#xB6 ?\u0416) ;; CYRILLIC CAPITAL LETTER ZHE | |
132 (#xB7 ?\u0417) ;; CYRILLIC CAPITAL LETTER ZE | |
133 (#xB8 ?\u0418) ;; CYRILLIC CAPITAL LETTER I | |
134 (#xB9 ?\u0419) ;; CYRILLIC CAPITAL LETTER SHORT I | |
135 (#xBA ?\u041A) ;; CYRILLIC CAPITAL LETTER KA | |
136 (#xBB ?\u041B) ;; CYRILLIC CAPITAL LETTER EL | |
137 (#xBC ?\u041C) ;; CYRILLIC CAPITAL LETTER EM | |
138 (#xBD ?\u041D) ;; CYRILLIC CAPITAL LETTER EN | |
139 (#xBE ?\u041E) ;; CYRILLIC CAPITAL LETTER O | |
140 (#xBF ?\u041F) ;; CYRILLIC CAPITAL LETTER PE | |
141 (#xC0 ?\u0420) ;; CYRILLIC CAPITAL LETTER ER | |
142 (#xC1 ?\u0421) ;; CYRILLIC CAPITAL LETTER ES | |
143 (#xC2 ?\u0422) ;; CYRILLIC CAPITAL LETTER TE | |
144 (#xC3 ?\u0423) ;; CYRILLIC CAPITAL LETTER U | |
145 (#xC4 ?\u0424) ;; CYRILLIC CAPITAL LETTER EF | |
146 (#xC5 ?\u0425) ;; CYRILLIC CAPITAL LETTER HA | |
147 (#xC6 ?\u0426) ;; CYRILLIC CAPITAL LETTER TSE | |
148 (#xC7 ?\u0427) ;; CYRILLIC CAPITAL LETTER CHE | |
149 (#xC8 ?\u0428) ;; CYRILLIC CAPITAL LETTER SHA | |
150 (#xC9 ?\u0429) ;; CYRILLIC CAPITAL LETTER SHCHA | |
151 (#xCA ?\u042A) ;; CYRILLIC CAPITAL LETTER HARD SIGN | |
152 (#xCB ?\u042B) ;; CYRILLIC CAPITAL LETTER YERU | |
153 (#xCC ?\u042C) ;; CYRILLIC CAPITAL LETTER SOFT SIGN | |
154 (#xCD ?\u042D) ;; CYRILLIC CAPITAL LETTER E | |
155 (#xCE ?\u042E) ;; CYRILLIC CAPITAL LETTER YU | |
156 (#xCF ?\u042F) ;; CYRILLIC CAPITAL LETTER YA | |
157 (#xD0 ?\u0430) ;; CYRILLIC SMALL LETTER A | |
158 (#xD1 ?\u0431) ;; CYRILLIC SMALL LETTER BE | |
159 (#xD2 ?\u0432) ;; CYRILLIC SMALL LETTER VE | |
160 (#xD3 ?\u0433) ;; CYRILLIC SMALL LETTER GHE | |
161 (#xD4 ?\u0434) ;; CYRILLIC SMALL LETTER DE | |
162 (#xD5 ?\u0435) ;; CYRILLIC SMALL LETTER IE | |
163 (#xD6 ?\u0436) ;; CYRILLIC SMALL LETTER ZHE | |
164 (#xD7 ?\u0437) ;; CYRILLIC SMALL LETTER ZE | |
165 (#xD8 ?\u0438) ;; CYRILLIC SMALL LETTER I | |
166 (#xD9 ?\u0439) ;; CYRILLIC SMALL LETTER SHORT I | |
167 (#xDA ?\u043A) ;; CYRILLIC SMALL LETTER KA | |
168 (#xDB ?\u043B) ;; CYRILLIC SMALL LETTER EL | |
169 (#xDC ?\u043C) ;; CYRILLIC SMALL LETTER EM | |
170 (#xDD ?\u043D) ;; CYRILLIC SMALL LETTER EN | |
171 (#xDE ?\u043E) ;; CYRILLIC SMALL LETTER O | |
172 (#xDF ?\u043F) ;; CYRILLIC SMALL LETTER PE | |
173 (#xE0 ?\u0440) ;; CYRILLIC SMALL LETTER ER | |
174 (#xE1 ?\u0441) ;; CYRILLIC SMALL LETTER ES | |
175 (#xE2 ?\u0442) ;; CYRILLIC SMALL LETTER TE | |
176 (#xE3 ?\u0443) ;; CYRILLIC SMALL LETTER U | |
177 (#xE4 ?\u0444) ;; CYRILLIC SMALL LETTER EF | |
178 (#xE5 ?\u0445) ;; CYRILLIC SMALL LETTER HA | |
179 (#xE6 ?\u0446) ;; CYRILLIC SMALL LETTER TSE | |
180 (#xE7 ?\u0447) ;; CYRILLIC SMALL LETTER CHE | |
181 (#xE8 ?\u0448) ;; CYRILLIC SMALL LETTER SHA | |
182 (#xE9 ?\u0449) ;; CYRILLIC SMALL LETTER SHCHA | |
183 (#xEA ?\u044A) ;; CYRILLIC SMALL LETTER HARD SIGN | |
184 (#xEB ?\u044B) ;; CYRILLIC SMALL LETTER YERU | |
185 (#xEC ?\u044C) ;; CYRILLIC SMALL LETTER SOFT SIGN | |
186 (#xED ?\u044D) ;; CYRILLIC SMALL LETTER E | |
187 (#xEE ?\u044E) ;; CYRILLIC SMALL LETTER YU | |
188 (#xEF ?\u044F) ;; CYRILLIC SMALL LETTER YA | |
189 (#xF0 ?\u2116) ;; NUMERO SIGN | |
190 (#xF1 ?\u0451) ;; CYRILLIC SMALL LETTER IO | |
191 (#xF2 ?\u0452) ;; CYRILLIC SMALL LETTER DJE | |
192 (#xF3 ?\u0453) ;; CYRILLIC SMALL LETTER GJE | |
193 (#xF4 ?\u0454) ;; CYRILLIC SMALL LETTER UKRAINIAN IE | |
194 (#xF5 ?\u0455) ;; CYRILLIC SMALL LETTER DZE | |
195 (#xF6 ?\u0456) ;; CYRILLIC SMALL LETTER BYELORUSSIAN-UKRAINIAN I | |
196 (#xF7 ?\u0457) ;; CYRILLIC SMALL LETTER YI | |
197 (#xF8 ?\u0458) ;; CYRILLIC SMALL LETTER JE | |
198 (#xF9 ?\u0459) ;; CYRILLIC SMALL LETTER LJE | |
199 (#xFA ?\u045A) ;; CYRILLIC SMALL LETTER NJE | |
200 (#xFB ?\u045B) ;; CYRILLIC SMALL LETTER TSHE | |
201 (#xFC ?\u045C) ;; CYRILLIC SMALL LETTER KJE | |
202 (#xFD ?\u00A7) ;; SECTION SIGN | |
203 (#xFE ?\u045E) ;; CYRILLIC SMALL LETTER SHORT U | |
204 (#xFF ?\u045F)) ;; CYRILLIC SMALL LETTER DZHE | |
771 | 205 "ISO-8859-5 (Cyrillic)" |
4299 | 206 '(mnemonic "ISO8/Cyr" |
207 documentation "The ISO standard for encoding Cyrillic. Not used in practice. | |
208 See `koi8-r' and `windows-1250'. " | |
209 aliases (cyrillic-iso-8bit))) | |
428 | 210 |
4090 | 211 ;; Provide this locale; but don't allow it to be picked up from the Unix |
212 ;; locale (it has no locale entry in the alist), we leave that to Russian. | |
428 | 213 (set-language-info-alist |
214 "Cyrillic-ISO" '((charset cyrillic-iso8859-5) | |
4072 | 215 (tutorial . "TUTORIAL.ru") |
216 (coding-system iso-8859-5) | |
217 (native-coding-system iso-8859-5) | |
218 (coding-priority iso-8859-5) | |
219 (input-method . "cyrillic-yawerty") | |
220 (features cyril-util) | |
221 (sample-text . "Russian (,L@caaZXY(B) ,L7T`PRabRcYbU(B!") | |
222 (documentation . "Support for Cyrillic ISO-8859-5.")) | |
428 | 223 '("Cyrillic")) |
224 | |
4072 | 225 ;; KOI8-R, the most common encoding for Cyrillic on Unix and Usenet. |
226 (make-8-bit-coding-system | |
227 'koi8-r | |
228 '((#x80 ?\u2500) ;; BOX DRAWINGS LIGHT HORIZONTAL | |
229 (#x81 ?\u2502) ;; BOX DRAWINGS LIGHT VERTICAL | |
230 (#x82 ?\u250C) ;; BOX DRAWINGS LIGHT DOWN AND RIGHT | |
231 (#x83 ?\u2510) ;; BOX DRAWINGS LIGHT DOWN AND LEFT | |
232 (#x84 ?\u2514) ;; BOX DRAWINGS LIGHT UP AND RIGHT | |
233 (#x85 ?\u2518) ;; BOX DRAWINGS LIGHT UP AND LEFT | |
234 (#x86 ?\u251C) ;; BOX DRAWINGS LIGHT VERTICAL AND RIGHT | |
235 (#x87 ?\u2524) ;; BOX DRAWINGS LIGHT VERTICAL AND LEFT | |
236 (#x88 ?\u252C) ;; BOX DRAWINGS LIGHT DOWN AND HORIZONTAL | |
237 (#x89 ?\u2534) ;; BOX DRAWINGS LIGHT UP AND HORIZONTAL | |
238 (#x8A ?\u253C) ;; BOX DRAWINGS LIGHT VERTICAL AND HORIZONTAL | |
239 (#x8B ?\u2580) ;; UPPER HALF BLOCK | |
240 (#x8C ?\u2584) ;; LOWER HALF BLOCK | |
241 (#x8D ?\u2588) ;; FULL BLOCK | |
242 (#x8E ?\u258C) ;; LEFT HALF BLOCK | |
243 (#x8F ?\u2590) ;; RIGHT HALF BLOCK | |
244 (#x90 ?\u2591) ;; LIGHT SHADE | |
245 (#x91 ?\u2592) ;; MEDIUM SHADE | |
246 (#x92 ?\u2593) ;; DARK SHADE | |
247 (#x93 ?\u2320) ;; TOP HALF INTEGRAL | |
248 (#x94 ?\u25A0) ;; BLACK SQUARE | |
249 (#x95 ?\u2219) ;; BULLET OPERATOR | |
250 (#x96 ?\u221A) ;; SQUARE ROOT | |
251 (#x97 ?\u2248) ;; ALMOST EQUAL TO | |
252 (#x98 ?\u2264) ;; LESS-THAN OR EQUAL TO | |
253 (#x99 ?\u2265) ;; GREATER-THAN OR EQUAL TO | |
254 (#x9A ?\u00A0) ;; NO-BREAK SPACE | |
255 (#x9B ?\u2321) ;; BOTTOM HALF INTEGRAL | |
256 (#x9C ?\u00B0) ;; DEGREE SIGN | |
257 (#x9D ?\u00B2) ;; SUPERSCRIPT TWO | |
258 (#x9E ?\u00B7) ;; MIDDLE DOT | |
259 (#x9F ?\u00F7) ;; DIVISION SIGN | |
260 (#xA0 ?\u2550) ;; BOX DRAWINGS DOUBLE HORIZONTAL | |
261 (#xA1 ?\u2551) ;; BOX DRAWINGS DOUBLE VERTICAL | |
262 (#xA2 ?\u2552) ;; BOX DRAWINGS DOWN SINGLE AND RIGHT DOUBLE | |
263 (#xA3 ?\u0451) ;; CYRILLIC SMALL LETTER IO | |
264 (#xA4 ?\u2553) ;; BOX DRAWINGS DOWN DOUBLE AND RIGHT SINGLE | |
265 (#xA5 ?\u2554) ;; BOX DRAWINGS DOUBLE DOWN AND RIGHT | |
266 (#xA6 ?\u2555) ;; BOX DRAWINGS DOWN SINGLE AND LEFT DOUBLE | |
267 (#xA7 ?\u2556) ;; BOX DRAWINGS DOWN DOUBLE AND LEFT SINGLE | |
268 (#xA8 ?\u2557) ;; BOX DRAWINGS DOUBLE DOWN AND LEFT | |
269 (#xA9 ?\u2558) ;; BOX DRAWINGS UP SINGLE AND RIGHT DOUBLE | |
270 (#xAA ?\u2559) ;; BOX DRAWINGS UP DOUBLE AND RIGHT SINGLE | |
271 (#xAB ?\u255A) ;; BOX DRAWINGS DOUBLE UP AND RIGHT | |
272 (#xAC ?\u255B) ;; BOX DRAWINGS UP SINGLE AND LEFT DOUBLE | |
273 (#xAD ?\u255C) ;; BOX DRAWINGS UP DOUBLE AND LEFT SINGLE | |
274 (#xAE ?\u255D) ;; BOX DRAWINGS DOUBLE UP AND LEFT | |
275 (#xAF ?\u255E) ;; BOX DRAWINGS VERTICAL SINGLE AND RIGHT DOUBLE | |
276 (#xB0 ?\u255F) ;; BOX DRAWINGS VERTICAL DOUBLE AND RIGHT SINGLE | |
277 (#xB1 ?\u2560) ;; BOX DRAWINGS DOUBLE VERTICAL AND RIGHT | |
278 (#xB2 ?\u2561) ;; BOX DRAWINGS VERTICAL SINGLE AND LEFT DOUBLE | |
279 (#xB3 ?\u0401) ;; CYRILLIC CAPITAL LETTER IO | |
280 (#xB4 ?\u2562) ;; BOX DRAWINGS VERTICAL DOUBLE AND LEFT SINGLE | |
281 (#xB5 ?\u2563) ;; BOX DRAWINGS DOUBLE VERTICAL AND LEFT | |
282 (#xB6 ?\u2564) ;; BOX DRAWINGS DOWN SINGLE AND HORIZONTAL DOUBLE | |
283 (#xB7 ?\u2565) ;; BOX DRAWINGS DOWN DOUBLE AND HORIZONTAL SINGLE | |
284 (#xB8 ?\u2566) ;; BOX DRAWINGS DOUBLE DOWN AND HORIZONTAL | |
285 (#xB9 ?\u2567) ;; BOX DRAWINGS UP SINGLE AND HORIZONTAL DOUBLE | |
286 (#xBA ?\u2568) ;; BOX DRAWINGS UP DOUBLE AND HORIZONTAL SINGLE | |
287 (#xBB ?\u2569) ;; BOX DRAWINGS DOUBLE UP AND HORIZONTAL | |
288 (#xBC ?\u256A) ;; BOX DRAWINGS VERTICAL SINGLE AND HORIZONTAL DOUBLE | |
289 (#xBD ?\u256B) ;; BOX DRAWINGS VERTICAL DOUBLE AND HORIZONTAL SINGLE | |
290 (#xBE ?\u256C) ;; BOX DRAWINGS DOUBLE VERTICAL AND HORIZONTAL | |
291 (#xBF ?\u00A9) ;; COPYRIGHT SIGN | |
292 (#xC0 ?\u044E) ;; CYRILLIC SMALL LETTER YU | |
293 (#xC1 ?\u0430) ;; CYRILLIC SMALL LETTER A | |
294 (#xC2 ?\u0431) ;; CYRILLIC SMALL LETTER BE | |
295 (#xC3 ?\u0446) ;; CYRILLIC SMALL LETTER TSE | |
296 (#xC4 ?\u0434) ;; CYRILLIC SMALL LETTER DE | |
297 (#xC5 ?\u0435) ;; CYRILLIC SMALL LETTER IE | |
298 (#xC6 ?\u0444) ;; CYRILLIC SMALL LETTER EF | |
299 (#xC7 ?\u0433) ;; CYRILLIC SMALL LETTER GHE | |
300 (#xC8 ?\u0445) ;; CYRILLIC SMALL LETTER HA | |
301 (#xC9 ?\u0438) ;; CYRILLIC SMALL LETTER I | |
302 (#xCA ?\u0439) ;; CYRILLIC SMALL LETTER SHORT I | |
303 (#xCB ?\u043A) ;; CYRILLIC SMALL LETTER KA | |
304 (#xCC ?\u043B) ;; CYRILLIC SMALL LETTER EL | |
305 (#xCD ?\u043C) ;; CYRILLIC SMALL LETTER EM | |
306 (#xCE ?\u043D) ;; CYRILLIC SMALL LETTER EN | |
307 (#xCF ?\u043E) ;; CYRILLIC SMALL LETTER O | |
308 (#xD0 ?\u043F) ;; CYRILLIC SMALL LETTER PE | |
309 (#xD1 ?\u044F) ;; CYRILLIC SMALL LETTER YA | |
310 (#xD2 ?\u0440) ;; CYRILLIC SMALL LETTER ER | |
311 (#xD3 ?\u0441) ;; CYRILLIC SMALL LETTER ES | |
312 (#xD4 ?\u0442) ;; CYRILLIC SMALL LETTER TE | |
313 (#xD5 ?\u0443) ;; CYRILLIC SMALL LETTER U | |
314 (#xD6 ?\u0436) ;; CYRILLIC SMALL LETTER ZHE | |
315 (#xD7 ?\u0432) ;; CYRILLIC SMALL LETTER VE | |
316 (#xD8 ?\u044C) ;; CYRILLIC SMALL LETTER SOFT SIGN | |
317 (#xD9 ?\u044B) ;; CYRILLIC SMALL LETTER YERU | |
318 (#xDA ?\u0437) ;; CYRILLIC SMALL LETTER ZE | |
319 (#xDB ?\u0448) ;; CYRILLIC SMALL LETTER SHA | |
320 (#xDC ?\u044D) ;; CYRILLIC SMALL LETTER E | |
321 (#xDD ?\u0449) ;; CYRILLIC SMALL LETTER SHCHA | |
322 (#xDE ?\u0447) ;; CYRILLIC SMALL LETTER CHE | |
323 (#xDF ?\u044A) ;; CYRILLIC SMALL LETTER HARD SIGN | |
324 (#xE0 ?\u042E) ;; CYRILLIC CAPITAL LETTER YU | |
325 (#xE1 ?\u0410) ;; CYRILLIC CAPITAL LETTER A | |
326 (#xE2 ?\u0411) ;; CYRILLIC CAPITAL LETTER BE | |
327 (#xE3 ?\u0426) ;; CYRILLIC CAPITAL LETTER TSE | |
328 (#xE4 ?\u0414) ;; CYRILLIC CAPITAL LETTER DE | |
329 (#xE5 ?\u0415) ;; CYRILLIC CAPITAL LETTER IE | |
330 (#xE6 ?\u0424) ;; CYRILLIC CAPITAL LETTER EF | |
331 (#xE7 ?\u0413) ;; CYRILLIC CAPITAL LETTER GHE | |
332 (#xE8 ?\u0425) ;; CYRILLIC CAPITAL LETTER HA | |
333 (#xE9 ?\u0418) ;; CYRILLIC CAPITAL LETTER I | |
334 (#xEA ?\u0419) ;; CYRILLIC CAPITAL LETTER SHORT I | |
335 (#xEB ?\u041A) ;; CYRILLIC CAPITAL LETTER KA | |
336 (#xEC ?\u041B) ;; CYRILLIC CAPITAL LETTER EL | |
337 (#xED ?\u041C) ;; CYRILLIC CAPITAL LETTER EM | |
338 (#xEE ?\u041D) ;; CYRILLIC CAPITAL LETTER EN | |
339 (#xEF ?\u041E) ;; CYRILLIC CAPITAL LETTER O | |
340 (#xF0 ?\u041F) ;; CYRILLIC CAPITAL LETTER PE | |
341 (#xF1 ?\u042F) ;; CYRILLIC CAPITAL LETTER YA | |
342 (#xF2 ?\u0420) ;; CYRILLIC CAPITAL LETTER ER | |
343 (#xF3 ?\u0421) ;; CYRILLIC CAPITAL LETTER ES | |
344 (#xF4 ?\u0422) ;; CYRILLIC CAPITAL LETTER TE | |
345 (#xF5 ?\u0423) ;; CYRILLIC CAPITAL LETTER U | |
346 (#xF6 ?\u0416) ;; CYRILLIC CAPITAL LETTER ZHE | |
347 (#xF7 ?\u0412) ;; CYRILLIC CAPITAL LETTER VE | |
348 (#xF8 ?\u042C) ;; CYRILLIC CAPITAL LETTER SOFT SIGN | |
349 (#xF9 ?\u042B) ;; CYRILLIC CAPITAL LETTER YERU | |
350 (#xFA ?\u0417) ;; CYRILLIC CAPITAL LETTER ZE | |
351 (#xFB ?\u0428) ;; CYRILLIC CAPITAL LETTER SHA | |
352 (#xFC ?\u042D) ;; CYRILLIC CAPITAL LETTER E | |
353 (#xFD ?\u0429) ;; CYRILLIC CAPITAL LETTER SHCHA | |
354 (#xFE ?\u0427) ;; CYRILLIC CAPITAL LETTER CHE | |
355 (#xFF ?\u042A));; CYRILLIC CAPITAL LETTER HARD SIGN | |
356 "KOI8-R (,L:^T(B ,L>Q\U]P(B ,L8]d^`\PfXUY(B, 8 ,LQXb(B) for Russian and Bulgarian." | |
357 '(mnemonic "KOI8" | |
358 documentation | |
359 "This is the ASCII-compatible encoding documented in RFC 1341. | |
360 ,L:>8(B8-,L@(B is very common across the Cyrillic-using internet and in Unix | |
361 implementations; it shares the useful property with the other ,L:>8(B8 | |
362 encodings that when the high bit is stripped, encoded text remains | |
363 readable (Cyrillic characters get mapped to corresponding Roman | |
364 character of the opposite case). " | |
365 aliases (cyrillic-koi8 koi8 cp878))) | |
428 | 366 |
4072 | 367 ;; Create a corresponding language environment. |
428 | 368 (set-language-info-alist |
4090 | 369 "Russian" '((charset cyrillic-iso8859-5) |
370 (coding-system koi8-r) | |
371 (native-coding-system koi8-r) | |
372 (coding-priority koi8-r) | |
4490
67fbcaf3dbdc
error-sequence -> invalid-sequence
Aidan Kehoe <kehoea@parhasard.net>
parents:
4489
diff
changeset
|
373 (invalid-sequence-coding-system koi8-r) |
4090 | 374 (input-method . "cyrillic-yawerty") |
375 (features cyril-util) | |
376 (locale "ru") | |
377 (mswindows-locale . "RUSSIAN") | |
378 (tutorial . "TUTORIAL.ru") | |
379 (sample-text . "Russian (,L@caaZXY(B) ,L7T`PRabRcYbU(B!") | |
380 (documentation . "Support for Russian.")) | |
4072 | 381 '("Cyrillic")) |
382 | |
4090 | 383 ;; Provide Cyrillic-KOI8 for old times' sake too, but don't allow it to be |
384 ;; selected by the Unix locale. A variant language environment called | |
385 ;; "Cyrillic-KOI8 (UTF-8)" just looks too odd. | |
386 | |
4072 | 387 (set-language-info-alist |
4090 | 388 "Cyrillic-KOI8" |
389 (remassq 'locale (copy-list (cdr (assoc "Russian" language-info-alist)))) | |
4072 | 390 '("Cyrillic")) |
391 | |
392 ;; KOI8-U, for Ukrainian. | |
393 (make-8-bit-coding-system | |
394 'koi8-u | |
395 '((#x80 ?\u2500) ;; BOX DRAWINGS LIGHT HORIZONTAL | |
396 (#x81 ?\u2502) ;; BOX DRAWINGS LIGHT VERTICAL | |
397 (#x82 ?\u250C) ;; BOX DRAWINGS LIGHT DOWN AND RIGHT | |
398 (#x83 ?\u2510) ;; BOX DRAWINGS LIGHT DOWN AND LEFT | |
399 (#x84 ?\u2514) ;; BOX DRAWINGS LIGHT UP AND RIGHT | |
400 (#x85 ?\u2518) ;; BOX DRAWINGS LIGHT UP AND LEFT | |
401 (#x86 ?\u251C) ;; BOX DRAWINGS LIGHT VERTICAL AND RIGHT | |
402 (#x87 ?\u2524) ;; BOX DRAWINGS LIGHT VERTICAL AND LEFT | |
403 (#x88 ?\u252C) ;; BOX DRAWINGS LIGHT DOWN AND HORIZONTAL | |
404 (#x89 ?\u2534) ;; BOX DRAWINGS LIGHT UP AND HORIZONTAL | |
405 (#x8A ?\u253C) ;; BOX DRAWINGS LIGHT VERTICAL AND HORIZONTAL | |
406 (#x8B ?\u2580) ;; UPPER HALF BLOCK | |
407 (#x8C ?\u2584) ;; LOWER HALF BLOCK | |
408 (#x8D ?\u2588) ;; FULL BLOCK | |
409 (#x8E ?\u258C) ;; LEFT HALF BLOCK | |
410 (#x8F ?\u2590) ;; RIGHT HALF BLOCK | |
411 (#x90 ?\u2591) ;; LIGHT SHADE | |
412 (#x91 ?\u2592) ;; MEDIUM SHADE | |
413 (#x92 ?\u2593) ;; DARK SHADE | |
414 (#x93 ?\u2320) ;; TOP HALF INTEGRAL | |
415 (#x94 ?\u25A0) ;; BLACK SQUARE | |
416 (#x95 ?\u2022) ;; BULLET | |
417 (#x96 ?\u221A) ;; SQUARE ROOT | |
418 (#x97 ?\u2248) ;; ALMOST EQUAL TO | |
419 (#x98 ?\u2264) ;; LESS-THAN OR EQUAL TO | |
420 (#x99 ?\u2265) ;; GREATER-THAN OR EQUAL TO | |
421 (#x9A ?\u00A0) ;; NO-BREAK SPACE | |
422 (#x9B ?\u2321) ;; BOTTOM HALF INTEGRAL | |
423 (#x9C ?\u00B0) ;; DEGREE SIGN | |
424 (#x9D ?\u00B2) ;; SUPERSCRIPT TWO | |
425 (#x9E ?\u00B7) ;; MIDDLE DOT | |
426 (#x9F ?\u00F7) ;; DIVISION SIGN | |
427 (#xA0 ?\u2550) ;; BOX DRAWINGS DOUBLE HORIZONTAL | |
428 (#xA1 ?\u2551) ;; BOX DRAWINGS DOUBLE VERTICAL | |
429 (#xA2 ?\u2552) ;; BOX DRAWINGS DOWN SINGLE AND RIGHT DOUBLE | |
430 (#xA3 ?\u0451) ;; CYRILLIC SMALL LETTER IO | |
431 (#xA4 ?\u0454) ;; CYRILLIC SMALL LETTER UKRAINIAN IE | |
432 (#xA5 ?\u2554) ;; BOX DRAWINGS DOUBLE DOWN AND RIGHT | |
433 (#xA6 ?\u0456) ;; CYRILLIC SMALL LETTER BYELORUSSIAN-UKRAINIAN I | |
434 (#xA7 ?\u0457) ;; CYRILLIC SMALL LETTER YI | |
435 (#xA8 ?\u2557) ;; BOX DRAWINGS DOUBLE DOWN AND LEFT | |
436 (#xA9 ?\u2558) ;; BOX DRAWINGS UP SINGLE AND RIGHT DOUBLE | |
437 (#xAA ?\u2559) ;; BOX DRAWINGS UP DOUBLE AND RIGHT SINGLE | |
438 (#xAB ?\u255A) ;; BOX DRAWINGS DOUBLE UP AND RIGHT | |
439 (#xAC ?\u255B) ;; BOX DRAWINGS UP SINGLE AND LEFT DOUBLE | |
440 (#xAD ?\u0491) ;; CYRILLIC SMALL LETTER GHE WITH UPTURN | |
441 (#xAE ?\u255D) ;; BOX DRAWINGS DOUBLE UP AND LEFT | |
442 (#xAF ?\u255E) ;; BOX DRAWINGS VERTICAL SINGLE AND RIGHT DOUBLE | |
443 (#xB0 ?\u255F) ;; BOX DRAWINGS VERTICAL DOUBLE AND RIGHT SINGLE | |
444 (#xB1 ?\u2560) ;; BOX DRAWINGS DOUBLE VERTICAL AND RIGHT | |
445 (#xB2 ?\u2561) ;; BOX DRAWINGS VERTICAL SINGLE AND LEFT DOUBLE | |
446 (#xB3 ?\u0401) ;; CYRILLIC CAPITAL LETTER IO | |
447 (#xB4 ?\u0404) ;; CYRILLIC CAPITAL LETTER UKRAINIAN IE | |
448 (#xB5 ?\u2563) ;; BOX DRAWINGS DOUBLE VERTICAL AND LEFT | |
449 (#xB6 ?\u0406) ;; CYRILLIC CAPITAL LETTER BYELORUSSIAN-UKRAINIAN I | |
450 (#xB7 ?\u0407) ;; CYRILLIC CAPITAL LETTER YI | |
451 (#xB8 ?\u2566) ;; BOX DRAWINGS DOUBLE DOWN AND HORIZONTAL | |
452 (#xB9 ?\u2567) ;; BOX DRAWINGS UP SINGLE AND HORIZONTAL DOUBLE | |
453 (#xBA ?\u2568) ;; BOX DRAWINGS UP DOUBLE AND HORIZONTAL SINGLE | |
454 (#xBB ?\u2569) ;; BOX DRAWINGS DOUBLE UP AND HORIZONTAL | |
455 (#xBC ?\u256A) ;; BOX DRAWINGS VERTICAL SINGLE AND HORIZONTAL DOUBLE | |
456 (#xBD ?\u0490) ;; CYRILLIC CAPITAL LETTER GHE WITH UPTURN | |
457 (#xBE ?\u256C) ;; BOX DRAWINGS DOUBLE VERTICAL AND HORIZONTAL | |
458 (#xBF ?\u00A9) ;; COPYRIGHT SIGN | |
459 (#xC0 ?\u044E) ;; CYRILLIC SMALL LETTER YU | |
460 (#xC1 ?\u0430) ;; CYRILLIC SMALL LETTER A | |
461 (#xC2 ?\u0431) ;; CYRILLIC SMALL LETTER BE | |
462 (#xC3 ?\u0446) ;; CYRILLIC SMALL LETTER TSE | |
463 (#xC4 ?\u0434) ;; CYRILLIC SMALL LETTER DE | |
464 (#xC5 ?\u0435) ;; CYRILLIC SMALL LETTER IE | |
465 (#xC6 ?\u0444) ;; CYRILLIC SMALL LETTER EF | |
466 (#xC7 ?\u0433) ;; CYRILLIC SMALL LETTER GHE | |
467 (#xC8 ?\u0445) ;; CYRILLIC SMALL LETTER HA | |
468 (#xC9 ?\u0438) ;; CYRILLIC SMALL LETTER I | |
469 (#xCA ?\u0439) ;; CYRILLIC SMALL LETTER SHORT I | |
470 (#xCB ?\u043A) ;; CYRILLIC SMALL LETTER KA | |
471 (#xCC ?\u043B) ;; CYRILLIC SMALL LETTER EL | |
472 (#xCD ?\u043C) ;; CYRILLIC SMALL LETTER EM | |
473 (#xCE ?\u043D) ;; CYRILLIC SMALL LETTER EN | |
474 (#xCF ?\u043E) ;; CYRILLIC SMALL LETTER O | |
475 (#xD0 ?\u043F) ;; CYRILLIC SMALL LETTER PE | |
476 (#xD1 ?\u044F) ;; CYRILLIC SMALL LETTER YA | |
477 (#xD2 ?\u0440) ;; CYRILLIC SMALL LETTER ER | |
478 (#xD3 ?\u0441) ;; CYRILLIC SMALL LETTER ES | |
479 (#xD4 ?\u0442) ;; CYRILLIC SMALL LETTER TE | |
480 (#xD5 ?\u0443) ;; CYRILLIC SMALL LETTER U | |
481 (#xD6 ?\u0436) ;; CYRILLIC SMALL LETTER ZHE | |
482 (#xD7 ?\u0432) ;; CYRILLIC SMALL LETTER VE | |
483 (#xD8 ?\u044C) ;; CYRILLIC SMALL LETTER SOFT SIGN | |
484 (#xD9 ?\u044B) ;; CYRILLIC SMALL LETTER YERU | |
485 (#xDA ?\u0437) ;; CYRILLIC SMALL LETTER ZE | |
486 (#xDB ?\u0448) ;; CYRILLIC SMALL LETTER SHA | |
487 (#xDC ?\u044D) ;; CYRILLIC SMALL LETTER E | |
488 (#xDD ?\u0449) ;; CYRILLIC SMALL LETTER SHCHA | |
489 (#xDE ?\u0447) ;; CYRILLIC SMALL LETTER CHE | |
490 (#xDF ?\u044A) ;; CYRILLIC SMALL LETTER HARD SIGN | |
491 (#xE0 ?\u042E) ;; CYRILLIC CAPITAL LETTER YU | |
492 (#xE1 ?\u0410) ;; CYRILLIC CAPITAL LETTER A | |
493 (#xE2 ?\u0411) ;; CYRILLIC CAPITAL LETTER BE | |
494 (#xE3 ?\u0426) ;; CYRILLIC CAPITAL LETTER TSE | |
495 (#xE4 ?\u0414) ;; CYRILLIC CAPITAL LETTER DE | |
496 (#xE5 ?\u0415) ;; CYRILLIC CAPITAL LETTER IE | |
497 (#xE6 ?\u0424) ;; CYRILLIC CAPITAL LETTER EF | |
498 (#xE7 ?\u0413) ;; CYRILLIC CAPITAL LETTER GHE | |
499 (#xE8 ?\u0425) ;; CYRILLIC CAPITAL LETTER HA | |
500 (#xE9 ?\u0418) ;; CYRILLIC CAPITAL LETTER I | |
501 (#xEA ?\u0419) ;; CYRILLIC CAPITAL LETTER SHORT I | |
502 (#xEB ?\u041A) ;; CYRILLIC CAPITAL LETTER KA | |
503 (#xEC ?\u041B) ;; CYRILLIC CAPITAL LETTER EL | |
504 (#xED ?\u041C) ;; CYRILLIC CAPITAL LETTER EM | |
505 (#xEE ?\u041D) ;; CYRILLIC CAPITAL LETTER EN | |
506 (#xEF ?\u041E) ;; CYRILLIC CAPITAL LETTER O | |
507 (#xF0 ?\u041F) ;; CYRILLIC CAPITAL LETTER PE | |
508 (#xF1 ?\u042F) ;; CYRILLIC CAPITAL LETTER YA | |
509 (#xF2 ?\u0420) ;; CYRILLIC CAPITAL LETTER ER | |
510 (#xF3 ?\u0421) ;; CYRILLIC CAPITAL LETTER ES | |
511 (#xF4 ?\u0422) ;; CYRILLIC CAPITAL LETTER TE | |
512 (#xF5 ?\u0423) ;; CYRILLIC CAPITAL LETTER U | |
513 (#xF6 ?\u0416) ;; CYRILLIC CAPITAL LETTER ZHE | |
514 (#xF7 ?\u0412) ;; CYRILLIC CAPITAL LETTER VE | |
515 (#xF8 ?\u042C) ;; CYRILLIC CAPITAL LETTER SOFT SIGN | |
516 (#xF9 ?\u042B) ;; CYRILLIC CAPITAL LETTER YERU | |
517 (#xFA ?\u0417) ;; CYRILLIC CAPITAL LETTER ZE | |
518 (#xFB ?\u0428) ;; CYRILLIC CAPITAL LETTER SHA | |
519 (#xFC ?\u042D) ;; CYRILLIC CAPITAL LETTER E | |
520 (#xFD ?\u0429) ;; CYRILLIC CAPITAL LETTER SHCHA | |
521 (#xFE ?\u0427) ;; CYRILLIC CAPITAL LETTER CHE | |
522 (#xFF ?\u042A)) ;; CYRILLIC CAPITAL LETTER HARD SIGN | |
523 "KOI8-U, for Ukrainian" | |
524 '(mnemonic ",L:>8(B8,LC(B" | |
525 documentation | |
526 "KOI8-U, a KOI-8-compatible encoding for Ukrainian, described in RFC2319. | |
527 This has GHE WITH UPTURN, BYELORUSSIAN-UKRAINIAN I, UKRAINIAN IE and | |
528 YI instead of some box-drawing characters. Russian in this encoding | |
529 (without using box-drawing characters) is bit-for-bit compatible with | |
530 Russian in KOI8-R. ")) | |
531 | |
532 ;; Case support, for the new characters. | |
533 (loop | |
534 for (upper lower) | |
535 in '((?\u0404 ?\u0454) ; UKRAINIAN IE | |
536 (?\u0406 ?\u0456) ; BYELORUSSIAN-UKRAINIAN I | |
537 (?\u0407 ?\u0457) ; YI | |
538 (?\u0490 ?\u0491)); GHE WITH UPTURN | |
539 with case-table = (standard-case-table) | |
540 do | |
541 (put-case-table-pair upper lower case-table)) | |
542 | |
543 (set-language-info-alist | |
544 "Ukrainian" '((coding-system koi8-u) | |
545 (coding-priority koi8-u) | |
4090 | 546 (locale "uk") |
4490
67fbcaf3dbdc
error-sequence -> invalid-sequence
Aidan Kehoe <kehoea@parhasard.net>
parents:
4489
diff
changeset
|
547 (invalid-sequence-coding-system koi8-u) |
4072 | 548 (input-method . "cyrillic-ukrainian") |
549 (documentation | |
4090 | 550 . "Support for Ukrainian.")) |
428 | 551 '("Cyrillic")) |
552 | |
4145 | 553 (make-8-bit-coding-system |
554 'windows-1251 | |
555 '((#x80 ?\u0402) ;; CYRILLIC CAPITAL LETTER DJE | |
556 (#x81 ?\u0403) ;; CYRILLIC CAPITAL LETTER GJE | |
557 (#x82 ?\u201A) ;; SINGLE LOW-9 QUOTATION MARK | |
558 (#x83 ?\u0453) ;; CYRILLIC SMALL LETTER GJE | |
559 (#x84 ?\u201E) ;; DOUBLE LOW-9 QUOTATION MARK | |
560 (#x85 ?\u2026) ;; HORIZONTAL ELLIPSIS | |
561 (#x86 ?\u2020) ;; DAGGER | |
562 (#x87 ?\u2021) ;; DOUBLE DAGGER | |
563 (#x88 ?\u20AC) ;; EURO SIGN | |
564 (#x89 ?\u2030) ;; PER MILLE SIGN | |
565 (#x8A ?\u0409) ;; CYRILLIC CAPITAL LETTER LJE | |
566 (#x8B ?\u2039) ;; SINGLE LEFT-POINTING ANGLE QUOTATION MARK | |
567 (#x8C ?\u040A) ;; CYRILLIC CAPITAL LETTER NJE | |
568 (#x8D ?\u040C) ;; CYRILLIC CAPITAL LETTER KJE | |
569 (#x8E ?\u040B) ;; CYRILLIC CAPITAL LETTER TSHE | |
570 (#x8F ?\u040F) ;; CYRILLIC CAPITAL LETTER DZHE | |
571 (#x90 ?\u0452) ;; CYRILLIC SMALL LETTER DJE | |
572 (#x91 ?\u2018) ;; LEFT SINGLE QUOTATION MARK | |
573 (#x92 ?\u2019) ;; RIGHT SINGLE QUOTATION MARK | |
574 (#x93 ?\u201C) ;; LEFT DOUBLE QUOTATION MARK | |
575 (#x94 ?\u201D) ;; RIGHT DOUBLE QUOTATION MARK | |
576 (#x95 ?\u2022) ;; BULLET | |
577 (#x96 ?\u2013) ;; EN DASH | |
578 (#x97 ?\u2014) ;; EM DASH | |
579 (#x99 ?\u2122) ;; TRADE MARK SIGN | |
580 (#x9A ?\u0459) ;; CYRILLIC SMALL LETTER LJE | |
581 (#x9B ?\u203A) ;; SINGLE RIGHT-POINTING ANGLE QUOTATION MARK | |
582 (#x9C ?\u045A) ;; CYRILLIC SMALL LETTER NJE | |
583 (#x9D ?\u045C) ;; CYRILLIC SMALL LETTER KJE | |
584 (#x9E ?\u045B) ;; CYRILLIC SMALL LETTER TSHE | |
585 (#x9F ?\u045F) ;; CYRILLIC SMALL LETTER DZHE | |
586 (#xA0 ?\u00A0) ;; NO-BREAK SPACE | |
587 (#xA1 ?\u040E) ;; CYRILLIC CAPITAL LETTER SHORT U | |
588 (#xA2 ?\u045E) ;; CYRILLIC SMALL LETTER SHORT U | |
589 (#xA3 ?\u0408) ;; CYRILLIC CAPITAL LETTER JE | |
590 (#xA4 ?\u00A4) ;; CURRENCY SIGN | |
591 (#xA5 ?\u0490) ;; CYRILLIC CAPITAL LETTER GHE WITH UPTURN | |
592 (#xA6 ?\u00A6) ;; BROKEN BAR | |
593 (#xA7 ?\u00A7) ;; SECTION SIGN | |
594 (#xA8 ?\u0401) ;; CYRILLIC CAPITAL LETTER IO | |
595 (#xA9 ?\u00A9) ;; COPYRIGHT SIGN | |
596 (#xAA ?\u0404) ;; CYRILLIC CAPITAL LETTER UKRAINIAN IE | |
597 (#xAB ?\u00AB) ;; LEFT-POINTING DOUBLE ANGLE QUOTATION MARK | |
598 (#xAC ?\u00AC) ;; NOT SIGN | |
599 (#xAD ?\u00AD) ;; SOFT HYPHEN | |
600 (#xAE ?\u00AE) ;; REGISTERED SIGN | |
601 (#xAF ?\u0407) ;; CYRILLIC CAPITAL LETTER YI | |
602 (#xB0 ?\u00B0) ;; DEGREE SIGN | |
603 (#xB1 ?\u00B1) ;; PLUS-MINUS SIGN | |
604 (#xB2 ?\u0406) ;; CYRILLIC CAPITAL LETTER BYELORUSSIAN-UKRAINIAN I | |
605 (#xB3 ?\u0456) ;; CYRILLIC SMALL LETTER BYELORUSSIAN-UKRAINIAN I | |
606 (#xB4 ?\u0491) ;; CYRILLIC SMALL LETTER GHE WITH UPTURN | |
607 (#xB5 ?\u00B5) ;; MICRO SIGN | |
608 (#xB6 ?\u00B6) ;; PILCROW SIGN | |
609 (#xB7 ?\u00B7) ;; MIDDLE DOT | |
610 (#xB8 ?\u0451) ;; CYRILLIC SMALL LETTER IO | |
611 (#xB9 ?\u2116) ;; NUMERO SIGN | |
612 (#xBA ?\u0454) ;; CYRILLIC SMALL LETTER UKRAINIAN IE | |
613 (#xBB ?\u00BB) ;; RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK | |
614 (#xBC ?\u0458) ;; CYRILLIC SMALL LETTER JE | |
615 (#xBD ?\u0405) ;; CYRILLIC CAPITAL LETTER DZE | |
616 (#xBE ?\u0455) ;; CYRILLIC SMALL LETTER DZE | |
617 (#xBF ?\u0457) ;; CYRILLIC SMALL LETTER YI | |
618 (#xC0 ?\u0410) ;; CYRILLIC CAPITAL LETTER A | |
619 (#xC1 ?\u0411) ;; CYRILLIC CAPITAL LETTER BE | |
620 (#xC2 ?\u0412) ;; CYRILLIC CAPITAL LETTER VE | |
621 (#xC3 ?\u0413) ;; CYRILLIC CAPITAL LETTER GHE | |
622 (#xC4 ?\u0414) ;; CYRILLIC CAPITAL LETTER DE | |
623 (#xC5 ?\u0415) ;; CYRILLIC CAPITAL LETTER IE | |
624 (#xC6 ?\u0416) ;; CYRILLIC CAPITAL LETTER ZHE | |
625 (#xC7 ?\u0417) ;; CYRILLIC CAPITAL LETTER ZE | |
626 (#xC8 ?\u0418) ;; CYRILLIC CAPITAL LETTER I | |
627 (#xC9 ?\u0419) ;; CYRILLIC CAPITAL LETTER SHORT I | |
628 (#xCA ?\u041A) ;; CYRILLIC CAPITAL LETTER KA | |
629 (#xCB ?\u041B) ;; CYRILLIC CAPITAL LETTER EL | |
630 (#xCC ?\u041C) ;; CYRILLIC CAPITAL LETTER EM | |
631 (#xCD ?\u041D) ;; CYRILLIC CAPITAL LETTER EN | |
632 (#xCE ?\u041E) ;; CYRILLIC CAPITAL LETTER O | |
633 (#xCF ?\u041F) ;; CYRILLIC CAPITAL LETTER PE | |
634 (#xD0 ?\u0420) ;; CYRILLIC CAPITAL LETTER ER | |
635 (#xD1 ?\u0421) ;; CYRILLIC CAPITAL LETTER ES | |
636 (#xD2 ?\u0422) ;; CYRILLIC CAPITAL LETTER TE | |
637 (#xD3 ?\u0423) ;; CYRILLIC CAPITAL LETTER U | |
638 (#xD4 ?\u0424) ;; CYRILLIC CAPITAL LETTER EF | |
639 (#xD5 ?\u0425) ;; CYRILLIC CAPITAL LETTER HA | |
640 (#xD6 ?\u0426) ;; CYRILLIC CAPITAL LETTER TSE | |
641 (#xD7 ?\u0427) ;; CYRILLIC CAPITAL LETTER CHE | |
642 (#xD8 ?\u0428) ;; CYRILLIC CAPITAL LETTER SHA | |
643 (#xD9 ?\u0429) ;; CYRILLIC CAPITAL LETTER SHCHA | |
644 (#xDA ?\u042A) ;; CYRILLIC CAPITAL LETTER HARD SIGN | |
645 (#xDB ?\u042B) ;; CYRILLIC CAPITAL LETTER YERU | |
646 (#xDC ?\u042C) ;; CYRILLIC CAPITAL LETTER SOFT SIGN | |
647 (#xDD ?\u042D) ;; CYRILLIC CAPITAL LETTER E | |
648 (#xDE ?\u042E) ;; CYRILLIC CAPITAL LETTER YU | |
649 (#xDF ?\u042F) ;; CYRILLIC CAPITAL LETTER YA | |
650 (#xE0 ?\u0430) ;; CYRILLIC SMALL LETTER A | |
651 (#xE1 ?\u0431) ;; CYRILLIC SMALL LETTER BE | |
652 (#xE2 ?\u0432) ;; CYRILLIC SMALL LETTER VE | |
653 (#xE3 ?\u0433) ;; CYRILLIC SMALL LETTER GHE | |
654 (#xE4 ?\u0434) ;; CYRILLIC SMALL LETTER DE | |
655 (#xE5 ?\u0435) ;; CYRILLIC SMALL LETTER IE | |
656 (#xE6 ?\u0436) ;; CYRILLIC SMALL LETTER ZHE | |
657 (#xE7 ?\u0437) ;; CYRILLIC SMALL LETTER ZE | |
658 (#xE8 ?\u0438) ;; CYRILLIC SMALL LETTER I | |
659 (#xE9 ?\u0439) ;; CYRILLIC SMALL LETTER SHORT I | |
660 (#xEA ?\u043A) ;; CYRILLIC SMALL LETTER KA | |
661 (#xEB ?\u043B) ;; CYRILLIC SMALL LETTER EL | |
662 (#xEC ?\u043C) ;; CYRILLIC SMALL LETTER EM | |
663 (#xED ?\u043D) ;; CYRILLIC SMALL LETTER EN | |
664 (#xEE ?\u043E) ;; CYRILLIC SMALL LETTER O | |
665 (#xEF ?\u043F) ;; CYRILLIC SMALL LETTER PE | |
666 (#xF0 ?\u0440) ;; CYRILLIC SMALL LETTER ER | |
667 (#xF1 ?\u0441) ;; CYRILLIC SMALL LETTER ES | |
668 (#xF2 ?\u0442) ;; CYRILLIC SMALL LETTER TE | |
669 (#xF3 ?\u0443) ;; CYRILLIC SMALL LETTER U | |
670 (#xF4 ?\u0444) ;; CYRILLIC SMALL LETTER EF | |
671 (#xF5 ?\u0445) ;; CYRILLIC SMALL LETTER HA | |
672 (#xF6 ?\u0446) ;; CYRILLIC SMALL LETTER TSE | |
673 (#xF7 ?\u0447) ;; CYRILLIC SMALL LETTER CHE | |
674 (#xF8 ?\u0448) ;; CYRILLIC SMALL LETTER SHA | |
675 (#xF9 ?\u0449) ;; CYRILLIC SMALL LETTER SHCHA | |
676 (#xFA ?\u044A) ;; CYRILLIC SMALL LETTER HARD SIGN | |
677 (#xFB ?\u044B) ;; CYRILLIC SMALL LETTER YERU | |
678 (#xFC ?\u044C) ;; CYRILLIC SMALL LETTER SOFT SIGN | |
679 (#xFD ?\u044D) ;; CYRILLIC SMALL LETTER E | |
680 (#xFE ?\u044E) ;; CYRILLIC SMALL LETTER YU | |
681 (#xFF ?\u044F)) ;; CYRILLIC SMALL LETTER YA | |
682 "Microsoft's Code Page 1251, for Russian, Bulgarian, Serbian and others. " | |
683 '(mnemonic "CyrW" | |
684 documentation | |
685 "This ASCII-compatible encoding is unfortunately not compatible at | |
4072 | 686 the code point level with the KOI8 family of encodings, but it |
687 provides several widely-used punctuation and quotation marks that | |
688 KOI-8R and its relatives don't, and has become widely used. " | |
4145 | 689 aliases (cp1251))) |
428 | 690 |
4072 | 691 (set-language-info-alist |
692 "Bulgarian" '((coding-system windows-1251) | |
693 (coding-priority windows-1251) | |
4490
67fbcaf3dbdc
error-sequence -> invalid-sequence
Aidan Kehoe <kehoea@parhasard.net>
parents:
4489
diff
changeset
|
694 (invalid-sequence-coding-system windows-1251) |
4072 | 695 (input-method . "bulgarian-bds") |
4090 | 696 (locale "bg") |
4072 | 697 (documentation |
4090 | 698 . "Support for Bulgarian. ") |
4072 | 699 (tutorial . "TUTORIAL.bg")) |
700 '("Cyrillic")) | |
428 | 701 |
4072 | 702 (set-language-info-alist |
703 "Belarusian" '((coding-system windows-1251) | |
704 (coding-priority windows-1251) | |
4490
67fbcaf3dbdc
error-sequence -> invalid-sequence
Aidan Kehoe <kehoea@parhasard.net>
parents:
4489
diff
changeset
|
705 (invalid-sequence-coding-system windows-1251) |
4090 | 706 (locale "be") |
4072 | 707 (input-method . "belarusian") |
708 (documentation | |
4090 | 709 . "Support for Belarusian. \(The name Belarusian replaced\ |
710 Byelorussian in the early 1990s.)")) | |
4072 | 711 '("Cyrillic")) |
428 | 712 |
4072 | 713 ;;; Alternativnyj |
714 (make-8-bit-coding-system | |
715 'alternativnyj | |
716 '((#x80 ?\u0410) ;; CYRILLIC CAPITAL LETTER A | |
717 (#x81 ?\u0411) ;; CYRILLIC CAPITAL LETTER BE | |
718 (#x82 ?\u0412) ;; CYRILLIC CAPITAL LETTER VE | |
719 (#x83 ?\u0413) ;; CYRILLIC CAPITAL LETTER GHE | |
720 (#x84 ?\u0414) ;; CYRILLIC CAPITAL LETTER DE | |
721 (#x85 ?\u0415) ;; CYRILLIC CAPITAL LETTER IE | |
722 (#x86 ?\u0416) ;; CYRILLIC CAPITAL LETTER ZHE | |
723 (#x87 ?\u0417) ;; CYRILLIC CAPITAL LETTER ZE | |
724 (#x88 ?\u0418) ;; CYRILLIC CAPITAL LETTER I | |
725 (#x89 ?\u0419) ;; CYRILLIC CAPITAL LETTER SHORT I | |
726 (#x8A ?\u041A) ;; CYRILLIC CAPITAL LETTER KA | |
727 (#x8B ?\u041B) ;; CYRILLIC CAPITAL LETTER EL | |
728 (#x8C ?\u041C) ;; CYRILLIC CAPITAL LETTER EM | |
729 (#x8D ?\u041D) ;; CYRILLIC CAPITAL LETTER EN | |
730 (#x8E ?\u041E) ;; CYRILLIC CAPITAL LETTER O | |
731 (#x8F ?\u041F) ;; CYRILLIC CAPITAL LETTER PE | |
732 (#x90 ?\u0420) ;; CYRILLIC CAPITAL LETTER ER | |
733 (#x91 ?\u0421) ;; CYRILLIC CAPITAL LETTER ES | |
734 (#x92 ?\u0422) ;; CYRILLIC CAPITAL LETTER TE | |
735 (#x93 ?\u0423) ;; CYRILLIC CAPITAL LETTER U | |
736 (#x94 ?\u0424) ;; CYRILLIC CAPITAL LETTER EF | |
737 (#x95 ?\u0425) ;; CYRILLIC CAPITAL LETTER HA | |
738 (#x96 ?\u0426) ;; CYRILLIC CAPITAL LETTER TSE | |
739 (#x97 ?\u0427) ;; CYRILLIC CAPITAL LETTER CHE | |
740 (#x98 ?\u0428) ;; CYRILLIC CAPITAL LETTER SHA | |
741 (#x99 ?\u0429) ;; CYRILLIC CAPITAL LETTER SHCHA | |
742 (#x9A ?\u042A) ;; CYRILLIC CAPITAL LETTER HARD SIGN | |
743 (#x9B ?\u042B) ;; CYRILLIC CAPITAL LETTER YERU | |
744 (#x9C ?\u042C) ;; CYRILLIC CAPITAL LETTER SOFT SIGN | |
745 (#x9D ?\u042D) ;; CYRILLIC CAPITAL LETTER E | |
746 (#x9E ?\u042E) ;; CYRILLIC CAPITAL LETTER YU | |
747 (#x9F ?\u042F) ;; CYRILLIC CAPITAL LETTER YA | |
748 (#xA0 ?\u0430) ;; CYRILLIC SMALL LETTER A | |
749 (#xA1 ?\u0431) ;; CYRILLIC SMALL LETTER BE | |
750 (#xA2 ?\u0432) ;; CYRILLIC SMALL LETTER VE | |
751 (#xA3 ?\u0433) ;; CYRILLIC SMALL LETTER GHE | |
752 (#xA4 ?\u0434) ;; CYRILLIC SMALL LETTER DE | |
753 (#xA5 ?\u0435) ;; CYRILLIC SMALL LETTER IE | |
754 (#xA6 ?\u0436) ;; CYRILLIC SMALL LETTER ZHE | |
755 (#xA7 ?\u0437) ;; CYRILLIC SMALL LETTER ZE | |
756 (#xA8 ?\u0438) ;; CYRILLIC SMALL LETTER I | |
757 (#xA9 ?\u0439) ;; CYRILLIC SMALL LETTER SHORT I | |
758 (#xAA ?\u043A) ;; CYRILLIC SMALL LETTER KA | |
759 (#xAB ?\u043B) ;; CYRILLIC SMALL LETTER EL | |
760 (#xAC ?\u043C) ;; CYRILLIC SMALL LETTER EM | |
761 (#xAD ?\u043D) ;; CYRILLIC SMALL LETTER EN | |
762 (#xAE ?\u043E) ;; CYRILLIC SMALL LETTER O | |
763 (#xAF ?\u043F) ;; CYRILLIC SMALL LETTER PE | |
764 (#xB0 ?\u2591) ;; LIGHT SHADE | |
765 (#xB1 ?\u2592) ;; MEDIUM SHADE | |
766 (#xB2 ?\u2593) ;; DARK SHADE | |
767 (#xB3 ?\u2502) ;; BOX DRAWINGS LIGHT VERTICAL | |
768 (#xB4 ?\u2524) ;; BOX DRAWINGS LIGHT VERTICAL AND LEFT | |
769 (#xB5 ?\u2561) ;; BOX DRAWINGS VERTICAL SINGLE AND LEFT DOUBLE | |
770 (#xB6 ?\u2562) ;; BOX DRAWINGS VERTICAL DOUBLE AND LEFT SINGLE | |
771 (#xB7 ?\u2556) ;; BOX DRAWINGS DOWN DOUBLE AND LEFT SINGLE | |
772 (#xB8 ?\u2555) ;; BOX DRAWINGS DOWN SINGLE AND LEFT DOUBLE | |
773 (#xB9 ?\u2563) ;; BOX DRAWINGS DOUBLE VERTICAL AND LEFT | |
774 (#xBA ?\u2551) ;; BOX DRAWINGS DOUBLE VERTICAL | |
775 (#xBB ?\u2557) ;; BOX DRAWINGS DOUBLE DOWN AND LEFT | |
776 (#xBC ?\u255D) ;; BOX DRAWINGS DOUBLE UP AND LEFT | |
777 (#xBD ?\u255C) ;; BOX DRAWINGS UP DOUBLE AND LEFT SINGLE | |
778 (#xBE ?\u255B) ;; BOX DRAWINGS UP SINGLE AND LEFT DOUBLE | |
779 (#xBF ?\u2510) ;; BOX DRAWINGS LIGHT DOWN AND LEFT | |
780 (#xC0 ?\u2514) ;; BOX DRAWINGS LIGHT UP AND RIGHT | |
781 (#xC1 ?\u2534) ;; BOX DRAWINGS LIGHT UP AND HORIZONTAL | |
782 (#xC2 ?\u252C) ;; BOX DRAWINGS LIGHT DOWN AND HORIZONTAL | |
783 (#xC3 ?\u251C) ;; BOX DRAWINGS LIGHT VERTICAL AND RIGHT | |
784 (#xC4 ?\u2500) ;; BOX DRAWINGS LIGHT HORIZONTAL | |
785 (#xC5 ?\u253C) ;; BOX DRAWINGS LIGHT VERTICAL AND HORIZONTAL | |
786 (#xC6 ?\u255E) ;; BOX DRAWINGS VERTICAL SINGLE AND RIGHT DOUBLE | |
787 (#xC7 ?\u255F) ;; BOX DRAWINGS VERTICAL DOUBLE AND RIGHT SINGLE | |
788 (#xC8 ?\u255A) ;; BOX DRAWINGS DOUBLE UP AND RIGHT | |
789 (#xC9 ?\u2554) ;; BOX DRAWINGS DOUBLE DOWN AND RIGHT | |
790 (#xCA ?\u2569) ;; BOX DRAWINGS DOUBLE UP AND HORIZONTAL | |
791 (#xCB ?\u2566) ;; BOX DRAWINGS DOUBLE DOWN AND HORIZONTAL | |
792 (#xCC ?\u2560) ;; BOX DRAWINGS DOUBLE VERTICAL AND RIGHT | |
793 (#xCD ?\u2550) ;; BOX DRAWINGS DOUBLE HORIZONTAL | |
794 (#xCE ?\u256C) ;; BOX DRAWINGS DOUBLE VERTICAL AND HORIZONTAL | |
795 (#xCF ?\u2567) ;; BOX DRAWINGS UP SINGLE AND HORIZONTAL DOUBLE | |
796 (#xD0 ?\u2568) ;; BOX DRAWINGS UP DOUBLE AND HORIZONTAL SINGLE | |
797 (#xD1 ?\u2564) ;; BOX DRAWINGS DOWN SINGLE AND HORIZONTAL DOUBLE | |
798 (#xD2 ?\u2565) ;; BOX DRAWINGS DOWN DOUBLE AND HORIZONTAL SINGLE | |
799 (#xD3 ?\u2559) ;; BOX DRAWINGS UP DOUBLE AND RIGHT SINGLE | |
800 (#xD4 ?\u2558) ;; BOX DRAWINGS UP SINGLE AND RIGHT DOUBLE | |
801 (#xD5 ?\u2552) ;; BOX DRAWINGS DOWN SINGLE AND RIGHT DOUBLE | |
802 (#xD6 ?\u2553) ;; BOX DRAWINGS DOWN DOUBLE AND RIGHT SINGLE | |
803 (#xD7 ?\u256B) ;; BOX DRAWINGS VERTICAL DOUBLE AND HORIZONTAL SINGLE | |
804 (#xD8 ?\u256A) ;; BOX DRAWINGS VERTICAL SINGLE AND HORIZONTAL DOUBLE | |
805 (#xD9 ?\u2518) ;; BOX DRAWINGS LIGHT UP AND LEFT | |
806 (#xDA ?\u250C) ;; BOX DRAWINGS LIGHT DOWN AND RIGHT | |
807 (#xDB ?\u2588) ;; FULL BLOCK | |
808 (#xDC ?\u2584) ;; LOWER HALF BLOCK | |
809 (#xDD ?\u258C) ;; LEFT HALF BLOCK | |
810 (#xDE ?\u2590) ;; RIGHT HALF BLOCK | |
811 (#xDF ?\u2580) ;; UPPER HALF BLOCK | |
812 (#xE0 ?\u0440) ;; CYRILLIC SMALL LETTER ER | |
813 (#xE1 ?\u0441) ;; CYRILLIC SMALL LETTER ES | |
814 (#xE2 ?\u0442) ;; CYRILLIC SMALL LETTER TE | |
815 (#xE3 ?\u0443) ;; CYRILLIC SMALL LETTER U | |
816 (#xE4 ?\u0444) ;; CYRILLIC SMALL LETTER EF | |
817 (#xE5 ?\u0445) ;; CYRILLIC SMALL LETTER HA | |
818 (#xE6 ?\u0446) ;; CYRILLIC SMALL LETTER TSE | |
819 (#xE7 ?\u0447) ;; CYRILLIC SMALL LETTER CHE | |
820 (#xE8 ?\u0448) ;; CYRILLIC SMALL LETTER SHA | |
821 (#xE9 ?\u0449) ;; CYRILLIC SMALL LETTER SHCHA | |
822 (#xEA ?\u044A) ;; CYRILLIC SMALL LETTER HARD SIGN | |
823 (#xEB ?\u044B) ;; CYRILLIC SMALL LETTER YERU | |
824 (#xEC ?\u044C) ;; CYRILLIC SMALL LETTER SOFT SIGN | |
825 (#xED ?\u044D) ;; CYRILLIC SMALL LETTER E | |
826 (#xEE ?\u044E) ;; CYRILLIC SMALL LETTER YU | |
827 (#xEF ?\u044F) ;; CYRILLIC SMALL LETTER YA | |
828 (#xF0 ?\u0401) ;; CYRILLIC CAPITAL LETTER IO | |
829 (#xF1 ?\u0451) ;; CYRILLIC SMALL LETTER IO | |
830 (#xF2 ?\u0404) ;; CYRILLIC CAPITAL LETTER UKRAINIAN IE | |
831 (#xF3 ?\u0454) ;; CYRILLIC SMALL LETTER UKRAINIAN IE | |
832 (#xF4 ?\u0407) ;; CYRILLIC CAPITAL LETTER YI | |
833 (#xF5 ?\u0457) ;; CYRILLIC SMALL LETTER YI | |
834 (#xF6 ?\u040E) ;; CYRILLIC CAPITAL LETTER SHORT U | |
835 (#xF7 ?\u045E) ;; CYRILLIC SMALL LETTER SHORT U | |
836 (#xF8 ?\u00B0) ;; DEGREE SIGN | |
837 (#xF9 ?\u2022) ;; BULLET | |
838 (#xFA ?\u00B7) ;; MIDDLE DOT | |
839 (#xFB ?\u221A) ;; SQUARE ROOT | |
840 (#xFC ?\u2116) ;; NUMERO SIGN | |
841 (#xFD ?\u00A4) ;; CURRENCY SIGN | |
842 (#xFE ?\u25A0) ;; BLACK SQUARE | |
843 (#xFF ?\u00A0)) ;; NO-BREAK SPACE | |
844 "Alternativnyj (Cyrillic). Microsoft's Code Page 966. " | |
845 '(mnemonic "Cy.Alt" | |
846 aliases (cp866))) | |
428 | 847 |
848 (set-language-info-alist | |
849 "Cyrillic-ALT" '((charset cyrillic-iso8859-5) | |
4072 | 850 (coding-system alternativnyj) |
851 (native-coding-system alternativnyj) | |
4490
67fbcaf3dbdc
error-sequence -> invalid-sequence
Aidan Kehoe <kehoea@parhasard.net>
parents:
4489
diff
changeset
|
852 (invalid-sequence-coding-system alternativnyj) |
4072 | 853 (coding-priority alternativnyj) |
854 (input-method . "cyrillic-yawerty") | |
855 (features cyril-util) | |
856 (tutorial . "TUTORIAL.ru") | |
857 (sample-text . "Russian (,L@caaZXY(B) ,L7T`PRabRcYbU(B!") | |
858 (documentation . "Support for Cyrillic ALTERNATIVNYJ.")) | |
859 '("Cyrillic")) | |
860 | |
861 (make-8-bit-coding-system | |
862 'koi8-ru | |
863 '((#x80 ?\u2500) ;; BOX DRAWINGS LIGHT HORIZONTAL | |
864 (#x81 ?\u2502) ;; BOX DRAWINGS LIGHT VERTICAL | |
865 (#x82 ?\u250C) ;; BOX DRAWINGS LIGHT DOWN AND RIGHT | |
866 (#x83 ?\u2510) ;; BOX DRAWINGS LIGHT DOWN AND LEFT | |
867 (#x84 ?\u2514) ;; BOX DRAWINGS LIGHT UP AND RIGHT | |
868 (#x85 ?\u2518) ;; BOX DRAWINGS LIGHT UP AND LEFT | |
869 (#x86 ?\u251C) ;; BOX DRAWINGS LIGHT VERTICAL AND RIGHT | |
870 (#x87 ?\u2524) ;; BOX DRAWINGS LIGHT VERTICAL AND LEFT | |
871 (#x88 ?\u252C) ;; BOX DRAWINGS LIGHT DOWN AND HORIZONTAL | |
872 (#x89 ?\u2534) ;; BOX DRAWINGS LIGHT UP AND HORIZONTAL | |
873 (#x8A ?\u253C) ;; BOX DRAWINGS LIGHT VERTICAL AND HORIZONTAL | |
874 (#x8B ?\u2580) ;; UPPER HALF BLOCK | |
875 (#x8C ?\u2584) ;; LOWER HALF BLOCK | |
876 (#x8D ?\u2588) ;; FULL BLOCK | |
877 (#x8E ?\u258C) ;; LEFT HALF BLOCK | |
878 (#x8F ?\u2590) ;; RIGHT HALF BLOCK | |
879 (#x90 ?\u2591) ;; LIGHT SHADE | |
880 (#x91 ?\u2592) ;; MEDIUM SHADE | |
881 (#x92 ?\u2593) ;; DARK SHADE | |
882 (#x93 ?\u2320) ;; TOP HALF INTEGRAL | |
883 (#x94 ?\u25A0) ;; BLACK SQUARE | |
884 (#x95 ?\u2219) ;; BULLET OPERATOR | |
885 (#x96 ?\u221A) ;; SQUARE ROOT | |
886 (#x97 ?\u2248) ;; ALMOST EQUAL TO | |
887 (#x98 ?\u2264) ;; LESS-THAN OR EQUAL TO | |
888 (#x99 ?\u2265) ;; GREATER-THAN OR EQUAL TO | |
889 (#x9A ?\u00A0) ;; NO-BREAK SPACE | |
890 (#x9B ?\u2321) ;; BOTTOM HALF INTEGRAL | |
891 (#x9C ?\u00B0) ;; DEGREE SIGN | |
892 (#x9D ?\u00B2) ;; SUPERSCRIPT TWO | |
893 (#x9E ?\u00B7) ;; MIDDLE DOT | |
894 (#x9F ?\u00F7) ;; DIVISION SIGN | |
895 (#xA0 ?\u2550) ;; BOX DRAWINGS DOUBLE HORIZONTAL | |
896 (#xA1 ?\u2551) ;; BOX DRAWINGS DOUBLE VERTICAL | |
897 (#xA2 ?\u2552) ;; BOX DRAWINGS DOWN SINGLE AND RIGHT DOUBLE | |
898 (#xA3 ?\u0451) ;; CYRILLIC SMALL LETTER IO | |
899 (#xA4 ?\u0454) ;; CYRILLIC SMALL LETTER UKRAINIAN IE | |
900 (#xA5 ?\u2554) ;; BOX DRAWINGS DOUBLE DOWN AND RIGHT | |
901 (#xA6 ?\u0456) ;; CYRILLIC SMALL LETTER BYELORUSSIAN-UKRAINIAN I | |
902 (#xA7 ?\u0457) ;; CYRILLIC SMALL LETTER YI | |
903 (#xA8 ?\u2557) ;; BOX DRAWINGS DOUBLE DOWN AND LEFT | |
904 (#xA9 ?\u2558) ;; BOX DRAWINGS UP SINGLE AND RIGHT DOUBLE | |
905 (#xAA ?\u2559) ;; BOX DRAWINGS UP DOUBLE AND RIGHT SINGLE | |
906 (#xAB ?\u255A) ;; BOX DRAWINGS DOUBLE UP AND RIGHT | |
907 (#xAC ?\u255B) ;; BOX DRAWINGS UP SINGLE AND LEFT DOUBLE | |
908 (#xAD ?\u0491) ;; CYRILLIC SMALL LETTER GHE WITH UPTURN | |
909 (#xAE ?\u045E) ;; CYRILLIC SMALL LETTER SHORT U | |
910 (#xAF ?\u255E) ;; BOX DRAWINGS VERTICAL SINGLE AND RIGHT DOUBLE | |
911 (#xB0 ?\u255F) ;; BOX DRAWINGS VERTICAL DOUBLE AND RIGHT SINGLE | |
912 (#xB1 ?\u2560) ;; BOX DRAWINGS DOUBLE VERTICAL AND RIGHT | |
913 (#xB2 ?\u2561) ;; BOX DRAWINGS VERTICAL SINGLE AND LEFT DOUBLE | |
914 (#xB3 ?\u0401) ;; CYRILLIC CAPITAL LETTER IO | |
915 (#xB4 ?\u0404) ;; CYRILLIC CAPITAL LETTER UKRAINIAN IE | |
916 (#xB5 ?\u2563) ;; BOX DRAWINGS DOUBLE VERTICAL AND LEFT | |
917 (#xB6 ?\u0406) ;; CYRILLIC CAPITAL LETTER BYELORUSSIAN-UKRAINIAN I | |
918 (#xB7 ?\u0407) ;; CYRILLIC CAPITAL LETTER YI | |
919 (#xB8 ?\u2566) ;; BOX DRAWINGS DOUBLE DOWN AND HORIZONTAL | |
920 (#xB9 ?\u2567) ;; BOX DRAWINGS UP SINGLE AND HORIZONTAL DOUBLE | |
921 (#xBA ?\u2568) ;; BOX DRAWINGS UP DOUBLE AND HORIZONTAL SINGLE | |
922 (#xBB ?\u2569) ;; BOX DRAWINGS DOUBLE UP AND HORIZONTAL | |
923 (#xBC ?\u256A) ;; BOX DRAWINGS VERTICAL SINGLE AND HORIZONTAL DOUBLE | |
924 (#xBD ?\u0490) ;; CYRILLIC CAPITAL LETTER GHE WITH UPTURN | |
925 (#xBE ?\u040E) ;; CYRILLIC CAPITAL LETTER SHORT U | |
926 (#xBF ?\u00A9) ;; COPYRIGHT SIGN | |
927 (#xC0 ?\u044E) ;; CYRILLIC SMALL LETTER YU | |
928 (#xC1 ?\u0430) ;; CYRILLIC SMALL LETTER A | |
929 (#xC2 ?\u0431) ;; CYRILLIC SMALL LETTER BE | |
930 (#xC3 ?\u0446) ;; CYRILLIC SMALL LETTER TSE | |
931 (#xC4 ?\u0434) ;; CYRILLIC SMALL LETTER DE | |
932 (#xC5 ?\u0435) ;; CYRILLIC SMALL LETTER IE | |
933 (#xC6 ?\u0444) ;; CYRILLIC SMALL LETTER EF | |
934 (#xC7 ?\u0433) ;; CYRILLIC SMALL LETTER GHE | |
935 (#xC8 ?\u0445) ;; CYRILLIC SMALL LETTER HA | |
936 (#xC9 ?\u0438) ;; CYRILLIC SMALL LETTER I | |
937 (#xCA ?\u0439) ;; CYRILLIC SMALL LETTER SHORT I | |
938 (#xCB ?\u043A) ;; CYRILLIC SMALL LETTER KA | |
939 (#xCC ?\u043B) ;; CYRILLIC SMALL LETTER EL | |
940 (#xCD ?\u043C) ;; CYRILLIC SMALL LETTER EM | |
941 (#xCE ?\u043D) ;; CYRILLIC SMALL LETTER EN | |
942 (#xCF ?\u043E) ;; CYRILLIC SMALL LETTER O | |
943 (#xD0 ?\u043F) ;; CYRILLIC SMALL LETTER PE | |
944 (#xD1 ?\u044F) ;; CYRILLIC SMALL LETTER YA | |
945 (#xD2 ?\u0440) ;; CYRILLIC SMALL LETTER ER | |
946 (#xD3 ?\u0441) ;; CYRILLIC SMALL LETTER ES | |
947 (#xD4 ?\u0442) ;; CYRILLIC SMALL LETTER TE | |
948 (#xD5 ?\u0443) ;; CYRILLIC SMALL LETTER U | |
949 (#xD6 ?\u0436) ;; CYRILLIC SMALL LETTER ZHE | |
950 (#xD7 ?\u0432) ;; CYRILLIC SMALL LETTER VE | |
951 (#xD8 ?\u044C) ;; CYRILLIC SMALL LETTER SOFT SIGN | |
952 (#xD9 ?\u044B) ;; CYRILLIC SMALL LETTER YERU | |
953 (#xDA ?\u0437) ;; CYRILLIC SMALL LETTER ZE | |
954 (#xDB ?\u0448) ;; CYRILLIC SMALL LETTER SHA | |
955 (#xDC ?\u044D) ;; CYRILLIC SMALL LETTER E | |
956 (#xDD ?\u0449) ;; CYRILLIC SMALL LETTER SHCHA | |
957 (#xDE ?\u0447) ;; CYRILLIC SMALL LETTER CHE | |
958 (#xDF ?\u044A) ;; CYRILLIC SMALL LETTER HARD SIGN | |
959 (#xE0 ?\u042E) ;; CYRILLIC CAPITAL LETTER YU | |
960 (#xE1 ?\u0410) ;; CYRILLIC CAPITAL LETTER A | |
961 (#xE2 ?\u0411) ;; CYRILLIC CAPITAL LETTER BE | |
962 (#xE3 ?\u0426) ;; CYRILLIC CAPITAL LETTER TSE | |
963 (#xE4 ?\u0414) ;; CYRILLIC CAPITAL LETTER DE | |
964 (#xE5 ?\u0415) ;; CYRILLIC CAPITAL LETTER IE | |
965 (#xE6 ?\u0424) ;; CYRILLIC CAPITAL LETTER EF | |
966 (#xE7 ?\u0413) ;; CYRILLIC CAPITAL LETTER GHE | |
967 (#xE8 ?\u0425) ;; CYRILLIC CAPITAL LETTER HA | |
968 (#xE9 ?\u0418) ;; CYRILLIC CAPITAL LETTER I | |
969 (#xEA ?\u0419) ;; CYRILLIC CAPITAL LETTER SHORT I | |
970 (#xEB ?\u041A) ;; CYRILLIC CAPITAL LETTER KA | |
971 (#xEC ?\u041B) ;; CYRILLIC CAPITAL LETTER EL | |
972 (#xED ?\u041C) ;; CYRILLIC CAPITAL LETTER EM | |
973 (#xEE ?\u041D) ;; CYRILLIC CAPITAL LETTER EN | |
974 (#xEF ?\u041E) ;; CYRILLIC CAPITAL LETTER O | |
975 (#xF0 ?\u041F) ;; CYRILLIC CAPITAL LETTER PE | |
976 (#xF1 ?\u042F) ;; CYRILLIC CAPITAL LETTER YA | |
977 (#xF2 ?\u0420) ;; CYRILLIC CAPITAL LETTER ER | |
978 (#xF3 ?\u0421) ;; CYRILLIC CAPITAL LETTER ES | |
979 (#xF4 ?\u0422) ;; CYRILLIC CAPITAL LETTER TE | |
980 (#xF5 ?\u0423) ;; CYRILLIC CAPITAL LETTER U | |
981 (#xF6 ?\u0416) ;; CYRILLIC CAPITAL LETTER ZHE | |
982 (#xF7 ?\u0412) ;; CYRILLIC CAPITAL LETTER VE | |
983 (#xF8 ?\u042C) ;; CYRILLIC CAPITAL LETTER SOFT SIGN | |
984 (#xF9 ?\u042B) ;; CYRILLIC CAPITAL LETTER YERU | |
985 (#xFA ?\u0417) ;; CYRILLIC CAPITAL LETTER ZE | |
986 (#xFB ?\u0428) ;; CYRILLIC CAPITAL LETTER SHA | |
987 (#xFC ?\u042D) ;; CYRILLIC CAPITAL LETTER E | |
988 (#xFD ?\u0429) ;; CYRILLIC CAPITAL LETTER SHCHA | |
989 (#xFE ?\u0427) ;; CYRILLIC CAPITAL LETTER CHE | |
990 (#xFF ?\u042A));; CYRILLIC CAPITAL LETTER HARD SIGN | |
991 "KOI8-RU, a mostly-compatible superset of KOI8-R. | |
992 Also known as Windows code page 21866; has Ukrainian and Belarussian support. " | |
993 '(mnemonic ",L@C(B" | |
994 aliases (cp21866))) | |
995 | |
996 ;; We should provide an input method and the corresponding language | |
997 ;; environments for the next three coding systems. | |
998 | |
999 (make-8-bit-coding-system | |
1000 'koi8-t | |
1001 '((#x80 ?\u049B) ;; CYRILLIC SMALL LETTER KA WITH DESCENDER | |
1002 (#x81 ?\u0493) ;; CYRILLIC SMALL LETTER GHE WITH STROKE | |
1003 (#x82 ?\u201A) ;; SINGLE LOW-9 QUOTATION MARK | |
1004 (#x83 ?\u0492) ;; CYRILLIC CAPITAL LETTER GHE WITH STROKE | |
1005 (#x84 ?\u201E) ;; DOUBLE LOW-9 QUOTATION MARK | |
1006 (#x85 ?\u2026) ;; HORIZONTAL ELLIPSIS | |
1007 (#x86 ?\u2020) ;; DAGGER | |
1008 (#x87 ?\u2021) ;; DOUBLE DAGGER | |
1009 (#x89 ?\u2030) ;; PER MILLE SIGN | |
1010 (#x8A ?\u04B3) ;; CYRILLIC SMALL LETTER HA WITH DESCENDER | |
1011 (#x8B ?\u2039) ;; SINGLE LEFT-POINTING ANGLE QUOTATION MARK | |
1012 (#x8C ?\u04B2) ;; CYRILLIC CAPITAL LETTER HA WITH DESCENDER | |
1013 (#x8D ?\u04B7) ;; CYRILLIC SMALL LETTER CHE WITH DESCENDER | |
1014 (#x8E ?\u04B6) ;; CYRILLIC CAPITAL LETTER CHE WITH DESCENDER | |
1015 (#x90 ?\u049A) ;; CYRILLIC CAPITAL LETTER KA WITH DESCENDER | |
1016 (#x91 ?\u2018) ;; LEFT SINGLE QUOTATION MARK | |
1017 (#x92 ?\u2019) ;; RIGHT SINGLE QUOTATION MARK | |
1018 (#x93 ?\u201C) ;; LEFT DOUBLE QUOTATION MARK | |
1019 (#x94 ?\u201D) ;; RIGHT DOUBLE QUOTATION MARK | |
1020 (#x95 ?\u2022) ;; BULLET | |
1021 (#x96 ?\u2013) ;; EN DASH | |
1022 (#x97 ?\u2014) ;; EM DASH | |
1023 (#x99 ?\u2122) ;; TRADE MARK SIGN | |
1024 (#x9B ?\u203A) ;; SINGLE RIGHT-POINTING ANGLE QUOTATION MARK | |
1025 (#xA1 ?\u04EF) ;; CYRILLIC SMALL LETTER U WITH MACRON | |
1026 (#xA2 ?\u04EE) ;; CYRILLIC CAPITAL LETTER U WITH MACRON | |
1027 (#xA3 ?\u0451) ;; CYRILLIC SMALL LETTER IO | |
1028 (#xA4 ?\u00A4) ;; CURRENCY SIGN | |
1029 (#xA5 ?\u04E3) ;; CYRILLIC SMALL LETTER I WITH MACRON | |
1030 (#xA6 ?\u00A6) ;; BROKEN BAR | |
1031 (#xA7 ?\u00A7) ;; SECTION SIGN | |
1032 (#xAB ?\u00AB) ;; LEFT-POINTING DOUBLE ANGLE QUOTATION MARK | |
1033 (#xAC ?\u00AC) ;; NOT SIGN | |
1034 (#xAD ?\u00AD) ;; SOFT HYPHEN | |
1035 (#xAE ?\u00AE) ;; REGISTERED SIGN | |
1036 (#xB0 ?\u00B0) ;; DEGREE SIGN | |
1037 (#xB1 ?\u00B1) ;; PLUS-MINUS SIGN | |
1038 (#xB2 ?\u00B2) ;; SUPERSCRIPT TWO | |
1039 (#xB3 ?\u0401) ;; CYRILLIC CAPITAL LETTER IO | |
1040 (#xB5 ?\u04E2) ;; CYRILLIC CAPITAL LETTER I WITH MACRON | |
1041 (#xB6 ?\u00B6) ;; PILCROW SIGN | |
1042 (#xB7 ?\u00B7) ;; MIDDLE DOT | |
1043 (#xB9 ?\u2116) ;; NUMERO SIGN | |
1044 (#xBB ?\u00BB) ;; RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK | |
1045 (#xBF ?\u00A9) ;; COPYRIGHT SIGN | |
1046 (#xC0 ?\u044E) ;; CYRILLIC SMALL LETTER YU | |
1047 (#xC1 ?\u0430) ;; CYRILLIC SMALL LETTER A | |
1048 (#xC2 ?\u0431) ;; CYRILLIC SMALL LETTER BE | |
1049 (#xC3 ?\u0446) ;; CYRILLIC SMALL LETTER TSE | |
1050 (#xC4 ?\u0434) ;; CYRILLIC SMALL LETTER DE | |
1051 (#xC5 ?\u0435) ;; CYRILLIC SMALL LETTER IE | |
1052 (#xC6 ?\u0444) ;; CYRILLIC SMALL LETTER EF | |
1053 (#xC7 ?\u0433) ;; CYRILLIC SMALL LETTER GHE | |
1054 (#xC8 ?\u0445) ;; CYRILLIC SMALL LETTER HA | |
1055 (#xC9 ?\u0438) ;; CYRILLIC SMALL LETTER I | |
1056 (#xCA ?\u0439) ;; CYRILLIC SMALL LETTER SHORT I | |
1057 (#xCB ?\u043A) ;; CYRILLIC SMALL LETTER KA | |
1058 (#xCC ?\u043B) ;; CYRILLIC SMALL LETTER EL | |
1059 (#xCD ?\u043C) ;; CYRILLIC SMALL LETTER EM | |
1060 (#xCE ?\u043D) ;; CYRILLIC SMALL LETTER EN | |
1061 (#xCF ?\u043E) ;; CYRILLIC SMALL LETTER O | |
1062 (#xD0 ?\u043F) ;; CYRILLIC SMALL LETTER PE | |
1063 (#xD1 ?\u044F) ;; CYRILLIC SMALL LETTER YA | |
1064 (#xD2 ?\u0440) ;; CYRILLIC SMALL LETTER ER | |
1065 (#xD3 ?\u0441) ;; CYRILLIC SMALL LETTER ES | |
1066 (#xD4 ?\u0442) ;; CYRILLIC SMALL LETTER TE | |
1067 (#xD5 ?\u0443) ;; CYRILLIC SMALL LETTER U | |
1068 (#xD6 ?\u0436) ;; CYRILLIC SMALL LETTER ZHE | |
1069 (#xD7 ?\u0432) ;; CYRILLIC SMALL LETTER VE | |
1070 (#xD8 ?\u044C) ;; CYRILLIC SMALL LETTER SOFT SIGN | |
1071 (#xD9 ?\u044B) ;; CYRILLIC SMALL LETTER YERU | |
1072 (#xDA ?\u0437) ;; CYRILLIC SMALL LETTER ZE | |
1073 (#xDB ?\u0448) ;; CYRILLIC SMALL LETTER SHA | |
1074 (#xDC ?\u044D) ;; CYRILLIC SMALL LETTER E | |
1075 (#xDD ?\u0449) ;; CYRILLIC SMALL LETTER SHCHA | |
1076 (#xDE ?\u0447) ;; CYRILLIC SMALL LETTER CHE | |
1077 (#xDF ?\u044A) ;; CYRILLIC SMALL LETTER HARD SIGN | |
1078 (#xE0 ?\u042E) ;; CYRILLIC CAPITAL LETTER YU | |
1079 (#xE1 ?\u0410) ;; CYRILLIC CAPITAL LETTER A | |
1080 (#xE2 ?\u0411) ;; CYRILLIC CAPITAL LETTER BE | |
1081 (#xE3 ?\u0426) ;; CYRILLIC CAPITAL LETTER TSE | |
1082 (#xE4 ?\u0414) ;; CYRILLIC CAPITAL LETTER DE | |
1083 (#xE5 ?\u0415) ;; CYRILLIC CAPITAL LETTER IE | |
1084 (#xE6 ?\u0424) ;; CYRILLIC CAPITAL LETTER EF | |
1085 (#xE7 ?\u0413) ;; CYRILLIC CAPITAL LETTER GHE | |
1086 (#xE8 ?\u0425) ;; CYRILLIC CAPITAL LETTER HA | |
1087 (#xE9 ?\u0418) ;; CYRILLIC CAPITAL LETTER I | |
1088 (#xEA ?\u0419) ;; CYRILLIC CAPITAL LETTER SHORT I | |
1089 (#xEB ?\u041A) ;; CYRILLIC CAPITAL LETTER KA | |
1090 (#xEC ?\u041B) ;; CYRILLIC CAPITAL LETTER EL | |
1091 (#xED ?\u041C) ;; CYRILLIC CAPITAL LETTER EM | |
1092 (#xEE ?\u041D) ;; CYRILLIC CAPITAL LETTER EN | |
1093 (#xEF ?\u041E) ;; CYRILLIC CAPITAL LETTER O | |
1094 (#xF0 ?\u041F) ;; CYRILLIC CAPITAL LETTER PE | |
1095 (#xF1 ?\u042F) ;; CYRILLIC CAPITAL LETTER YA | |
1096 (#xF2 ?\u0420) ;; CYRILLIC CAPITAL LETTER ER | |
1097 (#xF3 ?\u0421) ;; CYRILLIC CAPITAL LETTER ES | |
1098 (#xF4 ?\u0422) ;; CYRILLIC CAPITAL LETTER TE | |
1099 (#xF5 ?\u0423) ;; CYRILLIC CAPITAL LETTER U | |
1100 (#xF6 ?\u0416) ;; CYRILLIC CAPITAL LETTER ZHE | |
1101 (#xF7 ?\u0412) ;; CYRILLIC CAPITAL LETTER VE | |
1102 (#xF8 ?\u042C) ;; CYRILLIC CAPITAL LETTER SOFT SIGN | |
1103 (#xF9 ?\u042B) ;; CYRILLIC CAPITAL LETTER YERU | |
1104 (#xFA ?\u0417) ;; CYRILLIC CAPITAL LETTER ZE | |
1105 (#xFB ?\u0428) ;; CYRILLIC CAPITAL LETTER SHA | |
1106 (#xFC ?\u042D) ;; CYRILLIC CAPITAL LETTER E | |
1107 (#xFD ?\u0429) ;; CYRILLIC CAPITAL LETTER SHCHA | |
1108 (#xFE ?\u0427) ;; CYRILLIC CAPITAL LETTER CHE | |
1109 (#xFF ?\u042A));; CYRILLIC CAPITAL LETTER HARD SIGN | |
1110 ",L:>8(B-8 for Tajik." | |
1111 '(mnemonic ",LB%GҶ%@(B" | |
1112 documentation | |
1113 "Compatible in the alphabetic characters with KOI-8R for Russian, | |
1114 this 8-bit Cyrillic coding system makes those characters available | |
1115 that are necessary for writing Tajik, (,LWPQ^]%Gӣ%@(B ,Lb^%Gҷ%@XZ%Gӣ%@(B) the main | |
1116 language of Tajikistan and a close relative of Persian. ")) | |
1117 | |
1118 ;; Case support, for the new characters. | |
1119 (loop | |
1120 for (upper lower) | |
1121 in '((?\u04B6 ?\u04B7) ;; CHE WITH DESCENDER | |
1122 (?\u0492 ?\u0493) ;; GHE WITH STROKE | |
1123 (?\u04B2 ?\u04B3) ;; HA WITH DESCENDER | |
1124 (?\u04E2 ?\u04E3) ;; I WITH MACRON | |
1125 (?\u049A ?\u049B) ;; KA WITH DESCENDER | |
1126 (?\u04EE ?\u04EF)) ;; U WITH MACRON | |
1127 with case-table = (standard-case-table) | |
1128 do | |
1129 (put-case-table-pair upper lower case-table)) | |
1130 | |
1131 ;; Support fot the languages of the Caucasus. | |
1132 (make-8-bit-coding-system | |
1133 'koi8-c | |
1134 '((#x80 ?\u0493) ;; CYRILLIC SMALL LETTER GHE WITH STROKE | |
1135 (#x81 ?\u0497) ;; CYRILLIC SMALL LETTER ZHE WITH DESCENDER | |
1136 (#x82 ?\u049B) ;; CYRILLIC SMALL LETTER KA WITH DESCENDER | |
1137 (#x83 ?\u049D) ;; CYRILLIC SMALL LETTER KA WITH VERTICAL STROKE | |
1138 (#x84 ?\u04A3) ;; CYRILLIC SMALL LETTER EN WITH DESCENDER | |
1139 (#x85 ?\u04AF) ;; CYRILLIC SMALL LETTER STRAIGHT U | |
1140 (#x86 ?\u04B1) ;; CYRILLIC SMALL LETTER STRAIGHT U WITH STROKE | |
1141 (#x87 ?\u04B3) ;; CYRILLIC SMALL LETTER HA WITH DESCENDER | |
1142 (#x88 ?\u04B7) ;; CYRILLIC SMALL LETTER CHE WITH DESCENDER | |
1143 (#x89 ?\u04B9) ;; CYRILLIC SMALL LETTER CHE WITH VERTICAL STROKE | |
1144 (#x8A ?\u04BB) ;; CYRILLIC SMALL LETTER SHHA | |
1145 (#x8B ?\u2580) ;; UPPER HALF BLOCK | |
1146 (#x8C ?\u049D) ;; CYRILLIC SMALL LETTER KA WITH VERTICAL STROKE | |
1147 (#x8D ?\u04E3) ;; CYRILLIC SMALL LETTER I WITH MACRON | |
1148 (#x8E ?\u04E9) ;; CYRILLIC SMALL LETTER BARRED O | |
1149 (#x8F ?\u04EF) ;; CYRILLIC SMALL LETTER U WITH MACRON | |
1150 (#x90 ?\u0492) ;; CYRILLIC CAPITAL LETTER GHE WITH STROKE | |
1151 (#x91 ?\u0496) ;; CYRILLIC CAPITAL LETTER ZHE WITH DESCENDER | |
1152 (#x92 ?\u049A) ;; CYRILLIC CAPITAL LETTER KA WITH DESCENDER | |
1153 (#x93 ?\u049C) ;; CYRILLIC CAPITAL LETTER KA WITH VERTICAL STROKE | |
1154 (#x94 ?\u04A2) ;; CYRILLIC CAPITAL LETTER EN WITH DESCENDER | |
1155 (#x95 ?\u04AE) ;; CYRILLIC CAPITAL LETTER STRAIGHT U | |
1156 (#x96 ?\u04B0) ;; CYRILLIC CAPITAL LETTER STRAIGHT U WITH STROKE | |
1157 (#x97 ?\u04B2) ;; CYRILLIC CAPITAL LETTER HA WITH DESCENDER | |
1158 (#x98 ?\u04B6) ;; CYRILLIC CAPITAL LETTER CHE WITH DESCENDER | |
1159 (#x99 ?\u04B8) ;; CYRILLIC CAPITAL LETTER CHE WITH VERTICAL STROKE | |
1160 (#x9A ?\u04BA) ;; CYRILLIC CAPITAL LETTER SHHA | |
1161 (#x9B ?\u2321) ;; BOTTOM HALF INTEGRAL | |
1162 (#x9C ?\u04D8) ;; CYRILLIC CAPITAL LETTER SCHWA | |
1163 (#x9D ?\u04E2) ;; CYRILLIC CAPITAL LETTER I WITH MACRON | |
1164 (#x9E ?\u04E8) ;; CYRILLIC CAPITAL LETTER BARRED O | |
1165 (#x9F ?\u04EE) ;; CYRILLIC CAPITAL LETTER U WITH MACRON | |
1166 (#xA0 ?\u00A0) ;; NO-BREAK SPACE | |
1167 (#xA1 ?\u0452) ;; CYRILLIC SMALL LETTER DJE | |
1168 (#xA2 ?\u0453) ;; CYRILLIC SMALL LETTER GJE | |
1169 (#xA3 ?\u0451) ;; CYRILLIC SMALL LETTER IO | |
1170 (#xA4 ?\u0454) ;; CYRILLIC SMALL LETTER UKRAINIAN IE | |
1171 (#xA5 ?\u0455) ;; CYRILLIC SMALL LETTER DZE | |
1172 (#xA6 ?\u0456) ;; CYRILLIC SMALL LETTER BYELORUSSIAN-UKRAINIAN I | |
1173 (#xA7 ?\u0457) ;; CYRILLIC SMALL LETTER YI | |
1174 (#xA8 ?\u0458) ;; CYRILLIC SMALL LETTER JE | |
1175 (#xA9 ?\u0459) ;; CYRILLIC SMALL LETTER LJE | |
1176 (#xAA ?\u045A) ;; CYRILLIC SMALL LETTER NJE | |
1177 (#xAB ?\u045B) ;; CYRILLIC SMALL LETTER TSHE | |
1178 (#xAC ?\u045C) ;; CYRILLIC SMALL LETTER KJE | |
1179 (#xAD ?\u0491) ;; CYRILLIC SMALL LETTER GHE WITH UPTURN | |
1180 (#xAE ?\u045E) ;; CYRILLIC SMALL LETTER SHORT U | |
1181 (#xAF ?\u045F) ;; CYRILLIC SMALL LETTER DZHE | |
1182 (#xB0 ?\u2116) ;; NUMERO SIGN | |
1183 (#xB1 ?\u0402) ;; CYRILLIC CAPITAL LETTER DJE | |
1184 (#xB2 ?\u0403) ;; CYRILLIC CAPITAL LETTER GJE | |
1185 (#xB3 ?\u0401) ;; CYRILLIC CAPITAL LETTER IO | |
1186 (#xB4 ?\u0404) ;; CYRILLIC CAPITAL LETTER UKRAINIAN IE | |
1187 (#xB5 ?\u0405) ;; CYRILLIC CAPITAL LETTER DZE | |
1188 (#xB6 ?\u0406) ;; CYRILLIC CAPITAL LETTER BYELORUSSIAN-UKRAINIAN I | |
1189 (#xB7 ?\u0407) ;; CYRILLIC CAPITAL LETTER YI | |
1190 (#xB8 ?\u0408) ;; CYRILLIC CAPITAL LETTER JE | |
1191 (#xB9 ?\u0409) ;; CYRILLIC CAPITAL LETTER LJE | |
1192 (#xBA ?\u040A) ;; CYRILLIC CAPITAL LETTER NJE | |
1193 (#xBB ?\u040B) ;; CYRILLIC CAPITAL LETTER TSHE | |
1194 (#xBC ?\u040C) ;; CYRILLIC CAPITAL LETTER KJE | |
1195 (#xBD ?\u0490) ;; CYRILLIC CAPITAL LETTER GHE WITH UPTURN | |
1196 (#xBE ?\u040E) ;; CYRILLIC CAPITAL LETTER SHORT U | |
1197 (#xBF ?\u040F) ;; CYRILLIC CAPITAL LETTER DZHE | |
1198 (#xC0 ?\u044E) ;; CYRILLIC SMALL LETTER YU | |
1199 (#xC1 ?\u0430) ;; CYRILLIC SMALL LETTER A | |
1200 (#xC2 ?\u0431) ;; CYRILLIC SMALL LETTER BE | |
1201 (#xC3 ?\u0446) ;; CYRILLIC SMALL LETTER TSE | |
1202 (#xC4 ?\u0434) ;; CYRILLIC SMALL LETTER DE | |
1203 (#xC5 ?\u0435) ;; CYRILLIC SMALL LETTER IE | |
1204 (#xC6 ?\u0444) ;; CYRILLIC SMALL LETTER EF | |
1205 (#xC7 ?\u0433) ;; CYRILLIC SMALL LETTER GHE | |
1206 (#xC8 ?\u0445) ;; CYRILLIC SMALL LETTER HA | |
1207 (#xC9 ?\u0438) ;; CYRILLIC SMALL LETTER I | |
1208 (#xCA ?\u0439) ;; CYRILLIC SMALL LETTER SHORT I | |
1209 (#xCB ?\u043A) ;; CYRILLIC SMALL LETTER KA | |
1210 (#xCC ?\u043B) ;; CYRILLIC SMALL LETTER EL | |
1211 (#xCD ?\u043C) ;; CYRILLIC SMALL LETTER EM | |
1212 (#xCE ?\u043D) ;; CYRILLIC SMALL LETTER EN | |
1213 (#xCF ?\u043E) ;; CYRILLIC SMALL LETTER O | |
1214 (#xD0 ?\u043F) ;; CYRILLIC SMALL LETTER PE | |
1215 (#xD1 ?\u044F) ;; CYRILLIC SMALL LETTER YA | |
1216 (#xD2 ?\u0440) ;; CYRILLIC SMALL LETTER ER | |
1217 (#xD3 ?\u0441) ;; CYRILLIC SMALL LETTER ES | |
1218 (#xD4 ?\u0442) ;; CYRILLIC SMALL LETTER TE | |
1219 (#xD5 ?\u0443) ;; CYRILLIC SMALL LETTER U | |
1220 (#xD6 ?\u0436) ;; CYRILLIC SMALL LETTER ZHE | |
1221 (#xD7 ?\u0432) ;; CYRILLIC SMALL LETTER VE | |
1222 (#xD8 ?\u044C) ;; CYRILLIC SMALL LETTER SOFT SIGN | |
1223 (#xD9 ?\u044B) ;; CYRILLIC SMALL LETTER YERU | |
1224 (#xDA ?\u0437) ;; CYRILLIC SMALL LETTER ZE | |
1225 (#xDB ?\u0448) ;; CYRILLIC SMALL LETTER SHA | |
1226 (#xDC ?\u044D) ;; CYRILLIC SMALL LETTER E | |
1227 (#xDD ?\u0449) ;; CYRILLIC SMALL LETTER SHCHA | |
1228 (#xDE ?\u0447) ;; CYRILLIC SMALL LETTER CHE | |
1229 (#xDF ?\u044A) ;; CYRILLIC SMALL LETTER HARD SIGN | |
1230 (#xE0 ?\u042E) ;; CYRILLIC CAPITAL LETTER YU | |
1231 (#xE1 ?\u0410) ;; CYRILLIC CAPITAL LETTER A | |
1232 (#xE2 ?\u0411) ;; CYRILLIC CAPITAL LETTER BE | |
1233 (#xE3 ?\u0426) ;; CYRILLIC CAPITAL LETTER TSE | |
1234 (#xE4 ?\u0414) ;; CYRILLIC CAPITAL LETTER DE | |
1235 (#xE5 ?\u0415) ;; CYRILLIC CAPITAL LETTER IE | |
1236 (#xE6 ?\u0424) ;; CYRILLIC CAPITAL LETTER EF | |
1237 (#xE7 ?\u0413) ;; CYRILLIC CAPITAL LETTER GHE | |
1238 (#xE8 ?\u0425) ;; CYRILLIC CAPITAL LETTER HA | |
1239 (#xE9 ?\u0418) ;; CYRILLIC CAPITAL LETTER I | |
1240 (#xEA ?\u0419) ;; CYRILLIC CAPITAL LETTER SHORT I | |
1241 (#xEB ?\u041A) ;; CYRILLIC CAPITAL LETTER KA | |
1242 (#xEC ?\u041B) ;; CYRILLIC CAPITAL LETTER EL | |
1243 (#xED ?\u041C) ;; CYRILLIC CAPITAL LETTER EM | |
1244 (#xEE ?\u041D) ;; CYRILLIC CAPITAL LETTER EN | |
1245 (#xEF ?\u041E) ;; CYRILLIC CAPITAL LETTER O | |
1246 (#xF0 ?\u041F) ;; CYRILLIC CAPITAL LETTER PE | |
1247 (#xF1 ?\u042F) ;; CYRILLIC CAPITAL LETTER YA | |
1248 (#xF2 ?\u0420) ;; CYRILLIC CAPITAL LETTER ER | |
1249 (#xF3 ?\u0421) ;; CYRILLIC CAPITAL LETTER ES | |
1250 (#xF4 ?\u0422) ;; CYRILLIC CAPITAL LETTER TE | |
1251 (#xF5 ?\u0423) ;; CYRILLIC CAPITAL LETTER U | |
1252 (#xF6 ?\u0416) ;; CYRILLIC CAPITAL LETTER ZHE | |
1253 (#xF7 ?\u0412) ;; CYRILLIC CAPITAL LETTER VE | |
1254 (#xF8 ?\u042C) ;; CYRILLIC CAPITAL LETTER SOFT SIGN | |
1255 (#xF9 ?\u042B) ;; CYRILLIC CAPITAL LETTER YERU | |
1256 (#xFA ?\u0417) ;; CYRILLIC CAPITAL LETTER ZE | |
1257 (#xFB ?\u0428) ;; CYRILLIC CAPITAL LETTER SHA | |
1258 (#xFC ?\u042D) ;; CYRILLIC CAPITAL LETTER E | |
1259 (#xFD ?\u0429) ;; CYRILLIC CAPITAL LETTER SHCHA | |
1260 (#xFE ?\u0427) ;; CYRILLIC CAPITAL LETTER CHE | |
1261 (#xFF ?\u042A));; CYRILLIC CAPITAL LETTER HARD SIGN | |
1262 "KOI-8 for the Caucasus." | |
1263 '(documentation | |
1264 "Note that this does not support old Russian orthography; | |
1265 for that, see koi8-o. ")) | |
1266 | |
1267 (loop | |
1268 for (upper lower) | |
1269 in '((?\u04E9 ?\u04E8) ;; BARRED O | |
1270 (?\u04B9 ?\u04B8) ;; CHE WITH VERTICAL STROKE | |
1271 (?\u0452 ?\u0402) ;; DJE | |
1272 (?\u0455 ?\u0405) ;; DZE | |
1273 (?\u04A3 ?\u04A2) ;; EN WITH DESCENDER | |
1274 (?\u049D ?\u049C) ;; KA WITH VERTICAL STROKE | |
1275 (?\u04BB ?\u04BA) ;; SHHA | |
1276 (?\u04AF ?\u04AE) ;; STRAIGHT U | |
1277 (?\u04B1 ?\u04B0) ;; STRAIGHT U WITH STROKE | |
1278 (?\u0497 ?\u0496)) ;; ZHE WITH DESCENDER | |
1279 with case-table = (standard-case-table) | |
1280 do | |
1281 (put-case-table-pair upper lower case-table)) | |
1282 | |
1283 ;; Archaic Russian support. | |
1284 (make-8-bit-coding-system | |
1285 'koi8-o | |
1286 '((#x80 ?\u0402) ;; CYRILLIC CAPITAL LETTER DJE | |
1287 (#x81 ?\u0403) ;; CYRILLIC CAPITAL LETTER GJE | |
1288 (#x82 ?\u00B8) ;; CEDILLA | |
1289 (#x83 ?\u0453) ;; CYRILLIC SMALL LETTER GJE | |
1290 (#x84 ?\u201E) ;; DOUBLE LOW-9 QUOTATION MARK | |
1291 (#x85 ?\u2026) ;; HORIZONTAL ELLIPSIS | |
1292 (#x86 ?\u2020) ;; DAGGER | |
1293 (#x87 ?\u00A7) ;; SECTION SIGN | |
1294 (#x88 ?\u20AC) ;; EURO SIGN | |
1295 (#x89 ?\u00A8) ;; DIAERESIS | |
1296 (#x8A ?\u0409) ;; CYRILLIC CAPITAL LETTER LJE | |
1297 (#x8B ?\u2039) ;; SINGLE LEFT-POINTING ANGLE QUOTATION MARK | |
1298 (#x8C ?\u040A) ;; CYRILLIC CAPITAL LETTER NJE | |
1299 (#x8D ?\u040C) ;; CYRILLIC CAPITAL LETTER KJE | |
1300 (#x8E ?\u040B) ;; CYRILLIC CAPITAL LETTER TSHE | |
1301 (#x8F ?\u040F) ;; CYRILLIC CAPITAL LETTER DZHE | |
1302 (#x90 ?\u0452) ;; CYRILLIC SMALL LETTER DJE | |
1303 (#x91 ?\u2018) ;; LEFT SINGLE QUOTATION MARK | |
1304 (#x92 ?\u2019) ;; RIGHT SINGLE QUOTATION MARK | |
1305 (#x93 ?\u201C) ;; LEFT DOUBLE QUOTATION MARK | |
1306 (#x94 ?\u201D) ;; RIGHT DOUBLE QUOTATION MARK | |
1307 (#x95 ?\u2022) ;; BULLET | |
1308 (#x96 ?\u2013) ;; EN DASH | |
1309 (#x97 ?\u2014) ;; EM DASH | |
1310 (#x98 ?\u00A3) ;; POUND SIGN | |
1311 (#x99 ?\u00B7) ;; MIDDLE DOT | |
1312 (#x9A ?\u0459) ;; CYRILLIC SMALL LETTER LJE | |
1313 (#x9B ?\u203A) ;; SINGLE RIGHT-POINTING ANGLE QUOTATION MARK | |
1314 (#x9C ?\u045A) ;; CYRILLIC SMALL LETTER NJE | |
1315 (#x9D ?\u045C) ;; CYRILLIC SMALL LETTER KJE | |
1316 (#x9E ?\u045B) ;; CYRILLIC SMALL LETTER TSHE | |
1317 (#x9F ?\u045F) ;; CYRILLIC SMALL LETTER DZHE | |
1318 (#xA0 ?\u00A0) ;; NO-BREAK SPACE | |
1319 (#xA1 ?\u0475) ;; CYRILLIC SMALL LETTER IZHITSA | |
1320 (#xA2 ?\u0463) ;; CYRILLIC SMALL LETTER YAT | |
1321 (#xA3 ?\u0451) ;; CYRILLIC SMALL LETTER IO | |
1322 (#xA4 ?\u0454) ;; CYRILLIC SMALL LETTER UKRAINIAN IE | |
1323 (#xA5 ?\u0455) ;; CYRILLIC SMALL LETTER DZE | |
1324 (#xA6 ?\u0456) ;; CYRILLIC SMALL LETTER BYELORUSSIAN-UKRAINIAN I | |
1325 (#xA7 ?\u0457) ;; CYRILLIC SMALL LETTER YI | |
1326 (#xA8 ?\u0458) ;; CYRILLIC SMALL LETTER JE | |
1327 (#xA9 ?\u00AE) ;; REGISTERED SIGN | |
1328 (#xAA ?\u2122) ;; TRADE MARK SIGN | |
1329 (#xAB ?\u00AB) ;; LEFT-POINTING DOUBLE ANGLE QUOTATION MARK | |
1330 (#xAC ?\u0473) ;; CYRILLIC SMALL LETTER FITA | |
1331 (#xAD ?\u0491) ;; CYRILLIC SMALL LETTER GHE WITH UPTURN | |
1332 (#xAE ?\u045E) ;; CYRILLIC SMALL LETTER SHORT U | |
1333 (#xAF ?\u00B4) ;; ACUTE ACCENT | |
1334 (#xB0 ?\u00B0) ;; DEGREE SIGN | |
1335 (#xB1 ?\u0474) ;; CYRILLIC CAPITAL LETTER IZHITSA | |
1336 (#xB2 ?\u0462) ;; CYRILLIC CAPITAL LETTER YAT | |
1337 (#xB3 ?\u0401) ;; CYRILLIC CAPITAL LETTER IO | |
1338 (#xB4 ?\u0404) ;; CYRILLIC CAPITAL LETTER UKRAINIAN IE | |
1339 (#xB5 ?\u0405) ;; CYRILLIC CAPITAL LETTER DZE | |
1340 (#xB6 ?\u0406) ;; CYRILLIC CAPITAL LETTER BYELORUSSIAN-UKRAINIAN I | |
1341 (#xB7 ?\u0407) ;; CYRILLIC CAPITAL LETTER YI | |
1342 (#xB8 ?\u0408) ;; CYRILLIC CAPITAL LETTER JE | |
1343 (#xB9 ?\u2116) ;; NUMERO SIGN | |
1344 (#xBA ?\u00A2) ;; CENT SIGN | |
1345 (#xBB ?\u00BB) ;; RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK | |
1346 (#xBC ?\u0472) ;; CYRILLIC CAPITAL LETTER FITA | |
1347 (#xBD ?\u0490) ;; CYRILLIC CAPITAL LETTER GHE WITH UPTURN | |
1348 (#xBE ?\u040E) ;; CYRILLIC CAPITAL LETTER SHORT U | |
1349 (#xBF ?\u00A9) ;; COPYRIGHT SIGN | |
1350 (#xC0 ?\u044E) ;; CYRILLIC SMALL LETTER YU | |
1351 (#xC1 ?\u0430) ;; CYRILLIC SMALL LETTER A | |
1352 (#xC2 ?\u0431) ;; CYRILLIC SMALL LETTER BE | |
1353 (#xC3 ?\u0446) ;; CYRILLIC SMALL LETTER TSE | |
1354 (#xC4 ?\u0434) ;; CYRILLIC SMALL LETTER DE | |
1355 (#xC5 ?\u0435) ;; CYRILLIC SMALL LETTER IE | |
1356 (#xC6 ?\u0444) ;; CYRILLIC SMALL LETTER EF | |
1357 (#xC7 ?\u0433) ;; CYRILLIC SMALL LETTER GHE | |
1358 (#xC8 ?\u0445) ;; CYRILLIC SMALL LETTER HA | |
1359 (#xC9 ?\u0438) ;; CYRILLIC SMALL LETTER I | |
1360 (#xCA ?\u0439) ;; CYRILLIC SMALL LETTER SHORT I | |
1361 (#xCB ?\u043A) ;; CYRILLIC SMALL LETTER KA | |
1362 (#xCC ?\u043B) ;; CYRILLIC SMALL LETTER EL | |
1363 (#xCD ?\u043C) ;; CYRILLIC SMALL LETTER EM | |
1364 (#xCE ?\u043D) ;; CYRILLIC SMALL LETTER EN | |
1365 (#xCF ?\u043E) ;; CYRILLIC SMALL LETTER O | |
1366 (#xD0 ?\u043F) ;; CYRILLIC SMALL LETTER PE | |
1367 (#xD1 ?\u044F) ;; CYRILLIC SMALL LETTER YA | |
1368 (#xD2 ?\u0440) ;; CYRILLIC SMALL LETTER ER | |
1369 (#xD3 ?\u0441) ;; CYRILLIC SMALL LETTER ES | |
1370 (#xD4 ?\u0442) ;; CYRILLIC SMALL LETTER TE | |
1371 (#xD5 ?\u0443) ;; CYRILLIC SMALL LETTER U | |
1372 (#xD6 ?\u0436) ;; CYRILLIC SMALL LETTER ZHE | |
1373 (#xD7 ?\u0432) ;; CYRILLIC SMALL LETTER VE | |
1374 (#xD8 ?\u044C) ;; CYRILLIC SMALL LETTER SOFT SIGN | |
1375 (#xD9 ?\u044B) ;; CYRILLIC SMALL LETTER YERU | |
1376 (#xDA ?\u0437) ;; CYRILLIC SMALL LETTER ZE | |
1377 (#xDB ?\u0448) ;; CYRILLIC SMALL LETTER SHA | |
1378 (#xDC ?\u044D) ;; CYRILLIC SMALL LETTER E | |
1379 (#xDD ?\u0449) ;; CYRILLIC SMALL LETTER SHCHA | |
1380 (#xDE ?\u0447) ;; CYRILLIC SMALL LETTER CHE | |
1381 (#xDF ?\u044A) ;; CYRILLIC SMALL LETTER HARD SIGN | |
1382 (#xE0 ?\u042E) ;; CYRILLIC CAPITAL LETTER YU | |
1383 (#xE1 ?\u0410) ;; CYRILLIC CAPITAL LETTER A | |
1384 (#xE2 ?\u0411) ;; CYRILLIC CAPITAL LETTER BE | |
1385 (#xE3 ?\u0426) ;; CYRILLIC CAPITAL LETTER TSE | |
1386 (#xE4 ?\u0414) ;; CYRILLIC CAPITAL LETTER DE | |
1387 (#xE5 ?\u0415) ;; CYRILLIC CAPITAL LETTER IE | |
1388 (#xE6 ?\u0424) ;; CYRILLIC CAPITAL LETTER EF | |
1389 (#xE7 ?\u0413) ;; CYRILLIC CAPITAL LETTER GHE | |
1390 (#xE8 ?\u0425) ;; CYRILLIC CAPITAL LETTER HA | |
1391 (#xE9 ?\u0418) ;; CYRILLIC CAPITAL LETTER I | |
1392 (#xEA ?\u0419) ;; CYRILLIC CAPITAL LETTER SHORT I | |
1393 (#xEB ?\u041A) ;; CYRILLIC CAPITAL LETTER KA | |
1394 (#xEC ?\u041B) ;; CYRILLIC CAPITAL LETTER EL | |
1395 (#xED ?\u041C) ;; CYRILLIC CAPITAL LETTER EM | |
1396 (#xEE ?\u041D) ;; CYRILLIC CAPITAL LETTER EN | |
1397 (#xEF ?\u041E) ;; CYRILLIC CAPITAL LETTER O | |
1398 (#xF0 ?\u041F) ;; CYRILLIC CAPITAL LETTER PE | |
1399 (#xF1 ?\u042F) ;; CYRILLIC CAPITAL LETTER YA | |
1400 (#xF2 ?\u0420) ;; CYRILLIC CAPITAL LETTER ER | |
1401 (#xF3 ?\u0421) ;; CYRILLIC CAPITAL LETTER ES | |
1402 (#xF4 ?\u0422) ;; CYRILLIC CAPITAL LETTER TE | |
1403 (#xF5 ?\u0423) ;; CYRILLIC CAPITAL LETTER U | |
1404 (#xF6 ?\u0416) ;; CYRILLIC CAPITAL LETTER ZHE | |
1405 (#xF7 ?\u0412) ;; CYRILLIC CAPITAL LETTER VE | |
1406 (#xF8 ?\u042C) ;; CYRILLIC CAPITAL LETTER SOFT SIGN | |
1407 (#xF9 ?\u042B) ;; CYRILLIC CAPITAL LETTER YERU | |
1408 (#xFA ?\u0417) ;; CYRILLIC CAPITAL LETTER ZE | |
1409 (#xFB ?\u0428) ;; CYRILLIC CAPITAL LETTER SHA | |
1410 (#xFC ?\u042D) ;; CYRILLIC CAPITAL LETTER E | |
1411 (#xFD ?\u0429) ;; CYRILLIC CAPITAL LETTER SHCHA | |
1412 (#xFE ?\u0427) ;; CYRILLIC CAPITAL LETTER CHE | |
1413 (#xFF ?\u042A));; CYRILLIC CAPITAL LETTER HARD SIGN | |
1414 "KOI-8 for old-orthography Russian; also known as KOI-C." | |
1415 '(mnemonic ",L:>(B" | |
1416 documentation | |
1417 "KOI-8 for old-orthography Russian; also known as KOI-C. | |
1418 | |
1419 This is mostly compatible with KOI8-R in the alphabetic characters, and | |
1420 provides ,L&v(B, %GѲѳ%@, %GѢѣ%@, and %GѴѵ%@ instead of some of the box-drawing characters. ")) | |
1421 | |
1422 (loop | |
1423 for (upper lower) | |
1424 in '((?\u0472 ?\u0473) ;; FITA | |
1425 (?\u0474 ?\u0475) ;; IZHITSA | |
1426 (?\u0408 ?\u0458) ;; JE | |
1427 (?\u0462 ?\u0463)) ;; YAT | |
1428 with case-table = (standard-case-table) | |
1429 do | |
1430 (put-case-table-pair upper lower case-table)) | |
1431 | |
1432 (provide 'cyrillic) | |
1433 | |
4090 | 1434 ;;; cyrillic.el ends here |