/[emacs]/emacs/lisp/language/cyrillic.el
ViewVC logotype

Diff of /emacs/lisp/language/cyrillic.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.32 by fx, Wed Jul 17 18:39:16 2002 UTC revision 1.33 by fx, Wed Sep 11 21:07:00 2002 UTC
# Line 300  This works wheher or not the table is is Line 300  This works wheher or not the table is is
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
# Line 336  This works wheher or not the table is is Line 339  This works wheher or not the table is is
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
# Line 372  This works wheher or not the table is is Line 375  This works wheher or not the table is is
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."

Legend:
Removed from v.1.32  
changed lines
  Added in v.1.33

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26