Mercurial > emacs
comparison lisp/language/cyrillic.el @ 89909:68c22ea6027c
Sync to HEAD
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Fri, 16 Apr 2004 12:51:06 +0000 |
parents | 2f877ed80fa6 |
children | d8411455de48 |
comparison
equal
deleted
inserted
replaced
89908:ee1402f7b568 | 89909:68c22ea6027c |
---|---|
120 (documentation . "\ | 120 (documentation . "\ |
121 Support for Russian using koi8-r and the russian-computer input method.") | 121 Support for Russian using koi8-r and the russian-computer input method.") |
122 (tutorial . "TUTORIAL.ru")) | 122 (tutorial . "TUTORIAL.ru")) |
123 '("Cyrillic")) | 123 '("Cyrillic")) |
124 | 124 |
125 (define-coding-system 'koi8-u | |
126 "KOI8-U 8-bit encoding for Cyrillic (MIME: KOI8-U)" | |
127 :coding-type 'charset | |
128 :mnemonic ?U | |
129 :charset-list '(koi8-u) | |
130 :mime-charset 'koi8-u) | |
131 | |
132 (set-language-info-alist | |
133 "Ukrainian" `((charset koi8-u) | |
134 (coding-system koi8-u) | |
135 (coding-priority koi8-u) | |
136 (nonascii-translation . koi8-u) | |
137 (input-method . "ukrainian-computer") | |
138 (documentation | |
139 . "Support for Ukrainian with KOI8-U character set.")) | |
140 '("Cyrillic")) | |
141 | |
125 ;;; ALTERNATIVNYJ stuff | 142 ;;; ALTERNATIVNYJ stuff |
126 | 143 |
127 (define-coding-system 'cyrillic-alternativnyj | 144 (define-coding-system 'cyrillic-alternativnyj |
128 "ALTERNATIVNYJ 8-bit encoding for Cyrillic." | 145 "ALTERNATIVNYJ 8-bit encoding for Cyrillic." |
129 :coding-type 'charset | 146 :coding-type 'charset |
218 (input-method . "russian-typewriter") ; fixme? | 235 (input-method . "russian-typewriter") ; fixme? |
219 (features code-pages) | 236 (features code-pages) |
220 (documentation . "Support for Tajik using KOI8-T.")) | 237 (documentation . "Support for Tajik using KOI8-T.")) |
221 '("Cyrillic")) | 238 '("Cyrillic")) |
222 | 239 |
240 (let ((elt `("microsoft-cp1251" windows-1251 1 | |
241 ,(get 'encode-windows-1251 'translation-table))) | |
242 (slot (assoc "microsoft-cp1251" ctext-non-standard-encodings-alist))) | |
243 (if slot | |
244 (setcdr slot (cdr elt)) | |
245 (push elt ctext-non-standard-encodings-alist))) | |
246 | |
223 (set-language-info-alist | 247 (set-language-info-alist |
224 "Bulgarian" `((coding-system windows-1251) | 248 "Bulgarian" `((coding-system windows-1251) |
225 (coding-priority windows-1251) | 249 (coding-priority windows-1251) |
226 (nonascii-translation . windows-1251) | 250 (nonascii-translation . windows-1251) |
227 (charset windows-1251) | 251 (charset windows-1251) |
252 (ctext-non-standard-encodings "microsoft-cp1251") | |
228 (input-method . "bulgarian-bds") | 253 (input-method . "bulgarian-bds") |
229 (features code-pages) | |
230 (documentation | 254 (documentation |
231 . "Support for Bulgrian with windows-1251 character set.")) | 255 . "Support for Bulgrian with windows-1251 character set.")) |
232 '("Cyrillic")) | 256 '("Cyrillic")) |
233 | 257 |
234 (set-language-info-alist | 258 (set-language-info-alist |
235 "Belarusian" `((coding-system windows-1251) | 259 "Belarusian" `((coding-system windows-1251) |
236 (coding-priority windows-1251) | 260 (coding-priority windows-1251) |
237 (nonascii-translation . windows-1251) | 261 (nonascii-translation . windows-1251) |
238 (charset windows-1251) | 262 (charset windows-1251) |
263 (ctext-non-standard-encodings "microsoft-cp1251") | |
239 (input-method . "belarusian") | 264 (input-method . "belarusian") |
240 (features code-pages) | |
241 (documentation | 265 (documentation |
242 . "Support for Belarusian with windows-1251 character set. | 266 . "Support for Belarusian with windows-1251 character set. |
243 \(The name Belarusian replaced Byelorussian in the early 1990s.)")) | 267 \(The name Belarusian replaced Byelorussian in the early 1990s.)")) |
244 '("Cyrillic")) | 268 '("Cyrillic")) |
245 | 269 |
251 . "Support for Ukrainian with koi8-u character set.")) | 275 . "Support for Ukrainian with koi8-u character set.")) |
252 '("Cyrillic")) | 276 '("Cyrillic")) |
253 | 277 |
254 (provide 'cyrillic) | 278 (provide 'cyrillic) |
255 | 279 |
280 ;;; arch-tag: bda71ae0-ba41-4cb6-a6e0-1dff542313d3 | |
256 ;;; cyrillic.el ends here | 281 ;;; cyrillic.el ends here |