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