186 |
(define-coding-system-alias 'koi8 'cyrillic-koi8) |
(define-coding-system-alias 'koi8 'cyrillic-koi8) |
187 |
(define-coding-system-alias 'cp878 'cyrillic-koi8) |
(define-coding-system-alias 'cp878 'cyrillic-koi8) |
188 |
|
|
189 |
|
(let ((elt `("koi8-r" koi8-r 1 |
190 |
|
,(get 'cyrillic-koi8-r-encode-table 'translation-table))) |
191 |
|
(slot (assoc "koi8-r" ctext-non-standard-encodings-alist))) |
192 |
|
(if slot |
193 |
|
(setcdr slot (cdr elt)) |
194 |
|
(push elt ctext-non-standard-encodings-alist))) |
195 |
|
|
196 |
;; Allow displaying some of KOI & al with an 8859-5-encoded font. We |
;; Allow displaying some of KOI & al with an 8859-5-encoded font. We |
197 |
;; won't bother about the exceptions when encoding the font, since |
;; won't bother about the exceptions when encoding the font, since |
198 |
;; NBSP will fall through below and work anyhow, and we'll have |
;; NBSP will fall through below and work anyhow, and we'll have |
226 |
'translation-table)) |
'translation-table)) |
227 |
(coding-system cyrillic-koi8) |
(coding-system cyrillic-koi8) |
228 |
(coding-priority cyrillic-koi8 cyrillic-iso-8bit) |
(coding-priority cyrillic-koi8 cyrillic-iso-8bit) |
229 |
|
(ctext-non-standard-encodings "koi8-r") |
230 |
(input-method . "russian-typewriter") |
(input-method . "russian-typewriter") |
231 |
(features cyril-util) |
(features cyril-util) |
232 |
(unibyte-display . cyrillic-koi8) |
(unibyte-display . cyrillic-koi8) |