300 |
"Ukrainian" `((coding-system koi8-u) |
"Ukrainian" `((coding-system koi8-u) |
301 |
(coding-priority koi8-u) |
(coding-priority koi8-u) |
302 |
(nonascii-translation |
(nonascii-translation |
303 |
. ,(get 'cyrillic-koi8-r-nonascii-translation-table |
. ,(get 'cyrillic-koi8-u-nonascii-translation-table |
304 |
'translation-table)) |
'translation-table)) |
305 |
(input-method . "ukrainian-computer") |
(input-method . "ukrainian-computer") |
306 |
(features code-pages) |
(features code-pages) |
307 |
(documentation |
(documentation |
308 |
. "Support for Ukrainian with koi8-u character set.")) |
. "Support for Ukrainian with KOI8-U character set.")) |
309 |
'("Cyrillic")) |
'("Cyrillic")) |
310 |
|
|
311 |
;;; ALTERNATIVNYJ stuff |
;;; ALTERNATIVNYJ stuff |
312 |
|
|
313 |
|
;; Fixme: It's unclear what's the correct table. I've found |
314 |
|
;; statements both that it's the same as cp866 and somewhat different, |
315 |
|
;; but nothing that looks definitive. |
316 |
(defvar cyrillic-alternativnyj-decode-table |
(defvar cyrillic-alternativnyj-decode-table |
317 |
[ |
[ |
318 |
0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 |
0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 |
339 |
?$,2 4(B ?$,2 T(B ?$,2 L(B ?$,2 <(B ?$,2 (B ?$,2 \(B ?$,2 ~(B ?$,2 (B ?$,2 z(B ?$,2 t(B ?$,2!)(B ?$,2!&(B ?$,2! (B ?$,2 p(B ?$,2!,(B ?$,2!'(B |
?$,2 4(B ?$,2 T(B ?$,2 L(B ?$,2 <(B ?$,2 (B ?$,2 \(B ?$,2 ~(B ?$,2 (B ?$,2 z(B ?$,2 t(B ?$,2!)(B ?$,2!&(B ?$,2! (B ?$,2 p(B ?$,2!,(B ?$,2!'(B |
340 |
?$,2!((B ?$,2!$(B ?$,2!%(B ?$,2 y(B ?$,2 x(B ?$,2 r(B ?$,2 s(B ?$,2!+(B ?$,2!*(B ?$,2 8(B ?$,2 ,(B ?$,2!H(B ?$,2!D(B ?$,2!L(B ?$,2!P(B ?$,2!@(B |
?$,2!((B ?$,2!$(B ?$,2!%(B ?$,2 y(B ?$,2 x(B ?$,2 r(B ?$,2 s(B ?$,2!+(B ?$,2!*(B ?$,2 8(B ?$,2 ,(B ?$,2!H(B ?$,2!D(B ?$,2!L(B ?$,2!P(B ?$,2!@(B |
341 |
?,L`(B ?,La(B ?,Lb(B ?,Lc(B ?,Ld(B ?,Le(B ?,Lf(B ?,Lg(B ?,Lh(B ?,Li(B ?,Lj(B ?,Lk(B ?,Ll(B ?,Lm(B ?,Ln(B ?,Lo(B |
?,L`(B ?,La(B ?,Lb(B ?,Lc(B ?,Ld(B ?,Le(B ?,Lf(B ?,Lg(B ?,Lh(B ?,Li(B ?,Lj(B ?,Lk(B ?,Ll(B ?,Lm(B ?,Ln(B ?,Lo(B |
342 |
?,L!(B ?,Lq(B ?,L$(B ?,Lt(B ?,L'(B ?,Lw(B ?,L.(B ?,L~(B 248 249 250 251 ?,Lp(B 253 254 ?,L (B] |
?,L!(B ?,Lq(B ?,L$(B ?,Lt(B ?,L'(B ?,Lw(B ?,L.(B ?,L~(B ?,A0(B ?$,1s"(B ?,A7(B ?$,1x:(B ?,Lp(B ?,A$(B ?$,2!`(B ?,L (B] |
343 |
"Cyrillic ALTERNATIVNYJ decoding table.") |
"Cyrillic ALTERNATIVNYJ decoding table.") |
344 |
|
|
345 |
(let ((table (make-translation-table-from-vector |
(let ((table (make-translation-table-from-vector |
375 |
|
|
376 |
(cyrillic-unify-encoding 'cyrillic-alternativnyj-encode-table) |
(cyrillic-unify-encoding 'cyrillic-alternativnyj-encode-table) |
377 |
|
|
378 |
|
;; Fixme: Check the cp866 here and in alias below. See comment on the |
379 |
|
;; decode table above. |
380 |
(make-coding-system |
(make-coding-system |
381 |
'cyrillic-alternativnyj 4 ?A |
'cyrillic-alternativnyj 4 ?A |
382 |
"ALTERNATIVNYJ (CP866) 8-bit encoding for Cyrillic." |
"ALTERNATIVNYJ (CP866) 8-bit encoding for Cyrillic." |