Mercurial > hg > xemacs-beta

comparison lisp/mule/cyrillic.el @ 4299:f4c3ffe60a4f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2007-12-01 14:24:46 by aidan] Switch away from ISO 2022 for the ISO-8859 character sets.
author aidan
date Sat, 01 Dec 2007 14:24:52 +0000
parents edb00a8b4eff
children b75b075a9041
comparison
equal deleted inserted replaced
4298:27150c937a22 4299:f4c3ffe60a4f
104 (modify-syntax-entry (make-char 'cyrillic-iso8859-5 #xF0) 104 (modify-syntax-entry (make-char 'cyrillic-iso8859-5 #xF0)
105 (string (char-syntax ?\# (standard-syntax-table))) 105 (string (char-syntax ?\# (standard-syntax-table)))
106 (standard-syntax-table)) 106 (standard-syntax-table))
107 107
108 ;; And create the coding system. 108 ;; And create the coding system.
109 (make-coding-system 109 (make-8-bit-coding-system
110 'iso-8859-5 'iso2022 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
111 "ISO-8859-5 (Cyrillic)" 205 "ISO-8859-5 (Cyrillic)"
112 '(charset-g0 ascii 206 '(mnemonic "ISO8/Cyr"
113 charset-g1 cyrillic-iso8859-5 207 documentation "The ISO standard for encoding Cyrillic. Not used in practice.
114 charset-g2 t 208 See `koi8-r' and `windows-1250'. "
115 charset-g3 t 209 aliases (cyrillic-iso-8bit)))
116 mnemonic "ISO8/Cyr"))
117 210
118 ;; Provide this locale; but don't allow it to be picked up from the Unix 211 ;; Provide this locale; but don't allow it to be picked up from the Unix
119 ;; locale (it has no locale entry in the alist), we leave that to Russian. 212 ;; locale (it has no locale entry in the alist), we leave that to Russian.
120 (set-language-info-alist 213 (set-language-info-alist
121 "Cyrillic-ISO" '((charset cyrillic-iso8859-5) 214 "Cyrillic-ISO" '((charset cyrillic-iso8859-5)