code.delx.au - gnu-emacs/blob - lisp/language/cyrillic.el

   1 ;;; cyrillic.el --- support for Cyrillic -*- coding: iso-2022-7bit; -*-
   2
   3 ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN.
   4 ;; Licensed to the Free Software Foundation.
   5 ;; Copyright (C) 2001, 2002, 2003  Free Software Foundation, Inc.
   6
   7 ;; Author: Kenichi Handa <handa@etl.go.jp>
   8 ;; Keywords: multilingual, Cyrillic, i18n
   9
  10 ;; This file is part of GNU Emacs.
  11
  12 ;; GNU Emacs is free software; you can redistribute it and/or modify
  13 ;; it under the terms of the GNU General Public License as published by
  14 ;; the Free Software Foundation; either version 2, or (at your option)
  15 ;; any later version.
  16
  17 ;; GNU Emacs is distributed in the hope that it will be useful,
  18 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  20 ;; GNU General Public License for more details.
  21
  22 ;; You should have received a copy of the GNU General Public License
  23 ;; along with GNU Emacs; see the file COPYING.  If not, write to the
  24 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  25 ;; Boston, MA 02111-1307, USA.
  26
  27 ;;; Commentary:
  28
  29 ;; The character set ISO8859-5 is supported.  KOI-8 and ALTERNATIVNYJ
  30 ;; are converted to Unicode internally.  See
  31 ;; <URL:http://www.ecma.ch/ecma1/STAND/ECMA-113.HTM>.  For more info
  32 ;; on Cyrillic charsets, see
  33 ;; <URL:http://czyborra.com/charsets/cyrillic.html>.  The KOI and
  34 ;; Alternativnyj coding systems should live in code-pages.el, but
  35 ;; they've always been preloaded and the coding system autoload
  36 ;; mechanism didn't get accepted, so they have to stay here and
  37 ;; duplicate code-pages stuff.
  38
  39 ;; Note that 8859-5 maps directly onto the Unicode Cyrillic block,
  40 ;; apart from codepoints 160 (NBSP, c.f. U+0400), 173 (soft hyphen,
  41 ;; c.f. U+04OD) and 253 (section sign, c.f U+045D).  The KOI-8 and
  42 ;; Alternativnyj coding systems encode both 8859-5 and Unicode.
  43 ;; ucs-tables.el provides unification for cyrillic-iso-8bit.
  44
  45 ;; Customizing `utf-fragment-on-decoding' allows decoding characters
  46 ;; from KOI and Alternativnyj into 8859-5 where that's possible.
  47 ;; cyrillic-iso8859-5 characters take half as much space in the buffer
  48 ;; as the mule-unicode-0100-24ff equivalents, though that's probably
  49 ;; not normally a big deal.
  50
  51 ;;; Code:
  52
  53 ;; Cyrillic (general)
  54
  55 ;; ISO-8859-5 stuff
  56
  57 (make-coding-system
  58  'cyrillic-iso-8bit 2 ?5
  59  "ISO 2022 based 8-bit encoding for Cyrillic script (MIME:ISO-8859-5)."
  60  '(ascii cyrillic-iso8859-5  nil nil
  61    nil nil nil nil nil nil nil nil nil nil nil t)
  62  '((safe-charsets ascii cyrillic-iso8859-5)
  63    (mime-charset . iso-8859-5)))
  64
  65 (define-coding-system-alias 'iso-8859-5 'cyrillic-iso-8bit)
  66
  67 (set-language-info-alist
  68  "Cyrillic-ISO" '((charset cyrillic-iso8859-5)
  69                   (coding-system cyrillic-iso-8bit)
  70                   (coding-priority cyrillic-iso-8bit)
  71                   (input-method . "cyrillic-yawerty") ; fixme
  72                   (nonascii-translation . cyrillic-iso8859-5)
  73                   (unibyte-display . cyrillic-iso-8bit)
  74                   (features cyril-util)
  75                   (sample-text . "Russian (\e,L@caaZXY\e(B)       \e,L7T`PRabRcYbU\e(B!")
  76                   (documentation . "Support for Cyrillic ISO-8859-5."))
  77  '("Cyrillic"))
  78
  79 ;; KOI-8R stuff
  80
  81 ;; The mule-unicode portion of this is from
  82 ;; http://www.unicode.org/Public/MAPPINGS/VENDORS/MISC/KOI8-R.TXT,
  83 ;; which references RFC 1489.
  84 (defvar cyrillic-koi8-r-decode-table
  85   [
  86    0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
  87    16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31
  88    32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47
  89    48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63
  90    64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79
  91    80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95
  92    96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111
  93    112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127
  94    ;; 8859-5 plus Unicode
  95    ?\e$,2  \e(B ?\e$,2 "\e(B ?\e$,2 ,\e(B ?\e$,2 0\e(B ?\e$,2 4\e(B ?\e$,2 8\e(B ?\e$,2 <\e(B ?\e$,2 D\e(B ?\e$,2 L\e(B ?\e$,2 T\e(B ?\e$,2 \\e(B ?\e$,2!@\e(B ?\e$,2!D\e(B ?\e$,2!H\e(B ?\e$,2!L\e(B ?\e$,2!P\e(B
  96    ?\e$,2!Q\e(B ?\e$,2!R\e(B ?\e$,2!S\e(B ?\e$,1{ \e(B ?\e$,2!`\e(B ?\e$,1s"\e(B ?\e$,1x:\e(B ?\e$,1xh\e(B ?\e$,1y$\e(B ?\e$,1y%\e(B ?\e,L \e(B ?\e$,1{!\e(B ?\e,A0\e(B ?\e,A2\e(B ?\e,A7\e(B ?\e,Aw\e(B
  97    ?\e$,2 p\e(B ?\e$,2 q\e(B ?\e$,2 r\e(B ?\e,Lq\e(B ?\e$,2 s\e(B ?\e$,2 t\e(B ?\e$,2 u\e(B ?\e$,2 v\e(B ?\e$,2 w\e(B ?\e$,2 x\e(B ?\e$,2 y\e(B ?\e$,2 z\e(B ?\e$,2 {\e(B ?\e$,2 |\e(B ?\e$,2 }\e(B ?\e$,2 ~\e(B
  98    ?\e$,2 \7f\e(B ?\e$,2! \e(B ?\e$,2!!\e(B ?\e,L!\e(B ?\e$,2!"\e(B ?\e$,2!#\e(B ?\e$,2!$\e(B ?\e$,2!%\e(B ?\e$,2!&\e(B ?\e$,2!'\e(B ?\e$,2!(\e(B ?\e$,2!)\e(B ?\e$,2!*\e(B ?\e$,2!+\e(B ?\e$,2!,\e(B ?\e,A)\e(B
  99    ?\e,Ln\e(B  ?\e,LP\e(B  ?\e,LQ\e(B  ?\e,Lf\e(B  ?\e,LT\e(B  ?\e,LU\e(B  ?\e,Ld\e(B  ?\e,LS\e(B  ?\e,Le\e(B  ?\e,LX\e(B  ?\e,LY\e(B  ?\e,LZ\e(B  ?\e,L[\e(B  ?\e,L\\e(B  ?\e,L]\e(B  ?\e,L^\e(B
 100    ?\e,L_\e(B  ?\e,Lo\e(B  ?\e,L`\e(B  ?\e,La\e(B  ?\e,Lb\e(B  ?\e,Lc\e(B  ?\e,LV\e(B  ?\e,LR\e(B  ?\e,Ll\e(B  ?\e,Lk\e(B  ?\e,LW\e(B  ?\e,Lh\e(B  ?\e,Lm\e(B  ?\e,Li\e(B  ?\e,Lg\e(B  ?\e,Lj\e(B
 101    ?\e,LN\e(B  ?\e,L0\e(B  ?\e,L1\e(B  ?\e,LF\e(B  ?\e,L4\e(B  ?\e,L5\e(B  ?\e,LD\e(B  ?\e,L3\e(B  ?\e,LE\e(B  ?\e,L8\e(B  ?\e,L9\e(B  ?\e,L:\e(B  ?\e,L;\e(B  ?\e,L<\e(B  ?\e,L=\e(B  ?\e,L>\e(B
 102    ?\e,L?\e(B  ?\e,LO\e(B  ?\e,L@\e(B  ?\e,LA\e(B  ?\e,LB\e(B  ?\e,LC\e(B  ?\e,L6\e(B  ?\e,L2\e(B  ?\e,LL\e(B  ?\e,LK\e(B  ?\e,L7\e(B  ?\e,LH\e(B  ?\e,LM\e(B  ?\e,LI\e(B  ?\e,LG\e(B  ?\e,LJ\e(B
 103    ;; All Unicode:
 104 ;;    ?\e$,2  \e(B ?\e$,2 "\e(B ?\e$,2 ,\e(B ?\e$,2 0\e(B ?\e$,2 4\e(B ?\e$,2 8\e(B ?\e$,2 <\e(B ?\e$,2 D\e(B ?\e$,2 L\e(B ?\e$,2 T\e(B ?\e$,2 \\e(B ?\e$,2!@\e(B ?\e$,2!D\e(B ?\e$,2!H\e(B ?\e$,2!L\e(B ?\e$,2!P\e(B
 105 ;;    ?\e$,2!Q\e(B ?\e$,2!R\e(B ?\e$,2!S\e(B ?\e$,1{ \e(B ?\e$,2!`\e(B ?\e$,1s"\e(B ?\e$,1x:\e(B ?\e$,1xh\e(B ?\e$,1y$\e(B ?\e$,1y%\e(B ?\e,A \e(B ?\e$,1{!\e(B ?\e,A0\e(B ?\e,A2\e(B ?\e,A7\e(B ?\e,Aw\e(B
 106 ;;    ?\e$,2 p\e(B ?\e$,2 q\e(B ?\e$,2 r\e(B ?\e$,1(q\e(B ?\e$,2 s\e(B ?\e$,2 t\e(B ?\e$,2 u\e(B ?\e$,2 v\e(B ?\e$,2 w\e(B ?\e$,2 x\e(B ?\e$,2 y\e(B ?\e$,2 z\e(B ?\e$,2 {\e(B ?\e$,2 |\e(B ?\e$,2 }\e(B ?\e$,2 ~\e(B
 107 ;;    ?\e$,2 \7f\e(B ?\e$,2! \e(B ?\e$,2!!\e(B ?\e$,1(!\e(B ?\e$,2!"\e(B ?\e$,2!#\e(B ?\e$,2!$\e(B ?\e$,2!%\e(B ?\e$,2!&\e(B ?\e$,2!'\e(B ?\e$,2!(\e(B ?\e$,2!)\e(B ?\e$,2!*\e(B ?\e$,2!+\e(B ?\e$,2!,\e(B ?\e,A)\e(B
 108 ;;    ?\e$,1(n\e(B ?\e$,1(P\e(B ?\e$,1(Q\e(B ?\e$,1(f\e(B ?\e$,1(T\e(B ?\e$,1(U\e(B ?\e$,1(d\e(B ?\e$,1(S\e(B ?\e$,1(e\e(B ?\e$,1(X\e(B ?\e$,1(Y\e(B ?\e$,1(Z\e(B ?\e$,1([\e(B ?\e$,1(\\e(B ?\e$,1(]\e(B ?\e$,1(^\e(B
 109 ;;    ?\e$,1(_\e(B ?\e$,1(o\e(B ?\e$,1(`\e(B ?\e$,1(a\e(B ?\e$,1(b\e(B ?\e$,1(c\e(B ?\e$,1(V\e(B ?\e$,1(R\e(B ?\e$,1(l\e(B ?\e$,1(k\e(B ?\e$,1(W\e(B ?\e$,1(h\e(B ?\e$,1(m\e(B ?\e$,1(i\e(B ?\e$,1(g\e(B ?\e$,1(j\e(B
 110 ;;    ?\e$,1(N\e(B ?\e$,1(0\e(B ?\e$,1(1\e(B ?\e$,1(F\e(B ?\e$,1(4\e(B ?\e$,1(5\e(B ?\e$,1(D\e(B ?\e$,1(3\e(B ?\e$,1(E\e(B ?\e$,1(8\e(B ?\e$,1(9\e(B ?\e$,1(:\e(B ?\e$,1(;\e(B ?\e$,1(<\e(B ?\e$,1(=\e(B ?\e$,1(>\e(B
 111 ;;    ?\e$,1(?\e(B ?\e$,1(O\e(B ?\e$,1(@\e(B ?\e$,1(A\e(B ?\e$,1(B\e(B ?\e$,1(C\e(B ?\e$,1(6\e(B ?\e$,1(2\e(B ?\e$,1(L\e(B ?\e$,1(K\e(B ?\e$,1(7\e(B ?\e$,1(H\e(B ?\e$,1(M\e(B ?\e$,1(I\e(B ?\e$,1(G\e(B ?\e$,1(J\e(B
 112    ]
 113   "Cyrillic KOI8-R decoding table.")
 114
 115 (let ((table (make-translation-table-from-vector
 116               cyrillic-koi8-r-decode-table)))
 117   (define-translation-table 'cyrillic-koi8-r-nonascii-translation-table table)
 118   (define-translation-table 'cyrillic-koi8-r-encode-table
 119     (char-table-extra-slot table 0)))
 120
 121 ;; No point in keeping it around.  (It can't be let-bound, since it's
 122 ;; needed for macro expansion.)
 123 (makunbound 'cyrillic-koi8-r-decode-table)
 124
 125 (define-ccl-program ccl-decode-koi8
 126   `(4
 127     ((loop
 128       (r0 = 0)
 129       (read r1)
 130       (if (r1 < 128)
 131           (write-repeat r1)
 132         ((translate-character cyrillic-koi8-r-nonascii-translation-table r0 r1)
 133          (translate-character ucs-translation-table-for-decode r0 r1)
 134          (write-multibyte-character r0 r1)
 135          (repeat))))))
 136   "CCL program to decode KOI8-R.")
 137
 138 (define-ccl-program ccl-encode-koi8
 139   `(1
 140     ((loop
 141       (read-multibyte-character r0 r1)
 142       (translate-character cyrillic-koi8-r-encode-table r0 r1)
 143       (if (r0 != ,(charset-id 'ascii))
 144           (if (r0 != ,(charset-id 'eight-bit-graphic))
 145               (if (r0 != ,(charset-id 'eight-bit-control))
 146                   (r1 = ??))))
 147       (write-repeat r1))))
 148   "CCL program to encode KOI8-R.")
 149
 150 (defun cyrillic-unify-encoding (table)
 151   "Set up equivalent characters in the encoding TABLE.
 152 This works whether or not the table is Unicode-based or
 153 8859-5-based.  (Only appropriate for Cyrillic.)"
 154   (let ((table (get table 'translation-table)))
 155     (dotimes (i 96)
 156       (let* ((c (make-char 'cyrillic-iso8859-5 (+ i 32)))
 157              (u                         ; equivalent Unicode char
 158               (cond ((eq c ?\e,L \e(B) ?\e,A \e(B)
 159                     ((eq c ?\e,L-\e(B) ?\e,A-\e(B)
 160                     ((eq c ?\e,L}\e(B) ?\e,A'\e(B)
 161                     (t (decode-char 'ucs (+ #x400 i)))))
 162              (ec (aref table c))        ; encoding of 8859-5
 163              (uc (aref table u)))       ; encoding of Unicode
 164         (unless (memq c '(?\e,L \e(B ?\e,L-\e(B ?\e,L}\e(B))  ; 8859-5 exceptions
 165           (unless uc
 166             (aset table u ec))
 167           (unless ec
 168             (aset table c uc)))))))
 169
 170 (cyrillic-unify-encoding 'cyrillic-koi8-r-encode-table)
 171
 172 (make-coding-system
 173  'cyrillic-koi8 4
 174  ;; We used to use ?K.  It is true that ?K is more strictly correct,
 175  ;; but it is also used for Korean.
 176  ;; So people who use koi8 for languages other than Russian
 177  ;; will have to forgive us.
 178  ?R "KOI8-R 8-bit encoding for Cyrillic (MIME: KOI8-R)."
 179  '(ccl-decode-koi8 . ccl-encode-koi8)
 180  `((safe-chars . cyrillic-koi8-r-encode-table)
 181    (mime-charset . koi8-r)
 182    (valid-codes (0 . 255))
 183    (dependency unify-8859-on-encoding-mode unify-8859-on-decoding-mode)))
 184
 185 (define-coding-system-alias 'koi8-r 'cyrillic-koi8)
 186 (define-coding-system-alias 'koi8 'cyrillic-koi8)
 187 (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
 197 ;; won't bother about the exceptions when encoding the font, since
 198 ;; NBSP will fall through below and work anyhow, and we'll have
 199 ;; avoided setting the fontset for the other two to 8859-5 -- they're
 200 ;; not in KOI and Alternativnyj anyhow.
 201 (define-ccl-program ccl-encode-8859-5-font
 202   `(0
 203     ((if (r0 == ,(charset-id 'cyrillic-iso8859-5))
 204          (r1 += 128)
 205        (if (r0 == ,(charset-id 'mule-unicode-0100-24ff))
 206            (r1 = (r2 + 128))))))
 207   "Encode ISO 8859-5 and Cyrillic Unicode chars to 8859-5 font.")
 208
 209 (add-to-list 'font-ccl-encoder-alist '("iso8859-5" . ccl-encode-8859-5-font))
 210
 211 ;; The table is set up later to encode both Unicode and 8859-5.
 212 (define-ccl-program ccl-encode-koi8-font
 213   `(0
 214     (if (r2 >= 0)
 215         ((r1 <<= 7)
 216          (r1 += r2)))
 217     (translate-character cyrillic-koi8-r-encode-table r0 r1))
 218   "CCL program to encode Cyrillic chars to KOI font.")
 219
 220 (add-to-list 'font-ccl-encoder-alist '("koi8" . ccl-encode-koi8-font))
 221
 222 (set-language-info-alist
 223  "Cyrillic-KOI8" `((charset cyrillic-iso8859-5)
 224                    (nonascii-translation
 225                     . ,(get 'cyrillic-koi8-r-nonascii-translation-table
 226                             'translation-table))
 227                    (coding-system cyrillic-koi8)
 228                    (coding-priority cyrillic-koi8 cyrillic-iso-8bit)
 229                    (ctext-non-standard-encodings "koi8-r")
 230                    (input-method . "russian-typewriter")
 231                    (features cyril-util)
 232                    (unibyte-display . cyrillic-koi8)
 233                    (sample-text . "Russian (\e,L@caaZXY\e(B)      \e,L7T`PRabRcYbU\e(B!")
 234                    (documentation . "Support for Cyrillic KOI8-R."))
 235  '("Cyrillic"))
 236
 237 (set-language-info-alist
 238  "Russian" `((charset cyrillic-iso8859-5)
 239              (nonascii-translation
 240               . ,(get 'cyrillic-koi8-r-nonascii-translation-table
 241                       'translation-table))
 242              (coding-system cyrillic-koi8)
 243              (coding-priority cyrillic-koi8 cyrillic-iso-8bit)
 244              (input-method . "russian-computer")
 245              (features cyril-util)
 246              (unibyte-display . cyrillic-koi8)
 247              (sample-text . "Russian (\e,L@caaZXY\e(B)    \e,L7T`PRabRcYbU\e(B!")
 248              (documentation . "\
 249 Support for Russian using koi8-r and the russian-computer input method.")
 250              (tutorial . "TUTORIAL.ru"))
 251  '("Cyrillic"))
 252
 253
 254 (defvar cyrillic-koi8-u-decode-table
 255   [
 256    0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
 257    16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31
 258    32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47
 259    48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63
 260    64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79
 261    80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95
 262    96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111
 263    112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127
 264    ;; All Unicode:
 265 ;;    ?\e$,2  \e(B ?\e$,2 "\e(B ?\e$,2 ,\e(B ?\e$,2 0\e(B ?\e$,2 4\e(B ?\e$,2 8\e(B ?\e$,2 <\e(B ?\e$,2 D\e(B ?\e$,2 L\e(B ?\e$,2 T\e(B ?\e$,2 \\e(B ?\e$,2!@\e(B ?\e$,2!D\e(B ?\e$,2!H\e(B ?\e$,2!L\e(B ?\e$,2!P\e(B
 266 ;;    ?\e$,2!Q\e(B ?\e$,2!R\e(B ?\e$,2!S\e(B ?\e$,1{ \e(B ?\e$,2!`\e(B ?\e$,1x9\e(B ?\e$,1x:\e(B ?\e$,1xh\e(B ?\e$,1y$\e(B ?\e$,1y%\e(B ?\e,L \e(B ?\e$,1{!\e(B ?\e,A0\e(B ?\e,A2\e(B ?\e,A7\e(B ?\e,Aw\e(B
 267 ;;    ?\e$,2 p\e(B ?\e$,2 q\e(B ?\e$,2 r\e(B ?\e$,1(q\e(B ?\e$,1(t\e(B ?\e$,2 t\e(B ?\e$,1(v\e(B ?\e$,1(w\e(B ?\e$,2 w\e(B ?\e$,2 x\e(B ?\e$,2 y\e(B ?\e$,2 z\e(B ?\e$,2 {\e(B ?\e$,1)Q\e(B ?\e$,2 }\e(B ?\e$,2 ~\e(B
 268 ;;    ?\e$,2 \7f\e(B ?\e$,2! \e(B ?\e$,2!!\e(B ?\e$,1(!\e(B ?\e$,1($\e(B ?\e$,2!#\e(B ?\e$,1(&\e(B ?\e$,1('\e(B ?\e$,2!&\e(B ?\e$,2!'\e(B ?\e$,2!(\e(B ?\e$,2!)\e(B ?\e$,2!*\e(B ?\e$,1)P\e(B ?\e$,2!,\e(B ?\e,A)\e(B
 269 ;;    ?\e$,1(n\e(B ?\e$,1(P\e(B ?\e$,1(Q\e(B ?\e$,1(f\e(B ?\e$,1(T\e(B ?\e$,1(U\e(B ?\e$,1(d\e(B ?\e$,1(S\e(B ?\e$,1(e\e(B ?\e$,1(X\e(B ?\e$,1(Y\e(B ?\e$,1(Z\e(B ?\e$,1([\e(B ?\e$,1(\\e(B ?\e$,1(]\e(B ?\e$,1(^\e(B
 270 ;;    ?\e$,1(_\e(B ?\e$,1(o\e(B ?\e$,1(`\e(B ?\e$,1(a\e(B ?\e$,1(b\e(B ?\e$,1(c\e(B ?\e$,1(V\e(B ?\e$,1(R\e(B ?\e$,1(l\e(B ?\e$,1(k\e(B ?\e$,1(W\e(B ?\e$,1(h\e(B ?\e$,1(m\e(B ?\e$,1(i\e(B ?\e$,1(g\e(B ?\e$,1(j\e(B
 271 ;;    ?\e$,1(N\e(B ?\e$,1(0\e(B ?\e$,1(1\e(B ?\e$,1(F\e(B ?\e$,1(4\e(B ?\e$,1(5\e(B ?\e$,1(D\e(B ?\e$,1(3\e(B ?\e$,1(E\e(B ?\e$,1(8\e(B ?\e$,1(9\e(B ?\e$,1(:\e(B ?\e$,1(;\e(B ?\e$,1(<\e(B ?\e$,1(=\e(B ?\e$,1(>\e(B
 272 ;;    ?\e$,1(?\e(B ?\e$,1(O\e(B ?\e$,1(@\e(B ?\e$,1(A\e(B ?\e$,1(B\e(B ?\e$,1(C\e(B ?\e$,1(6\e(B ?\e$,1(2\e(B ?\e$,1(L\e(B ?\e$,1(K\e(B ?\e$,1(7\e(B ?\e$,1(H\e(B ?\e$,1(M\e(B ?\e$,1(I\e(B ?\e$,1(G\e(B ?\e$,1(J\e(B
 273 ;; 8859-5 plus Unicode:
 274    ?\e$,2  \e(B ?\e$,2 "\e(B ?\e$,2 ,\e(B ?\e$,2 0\e(B ?\e$,2 4\e(B ?\e$,2 8\e(B ?\e$,2 <\e(B ?\e$,2 D\e(B ?\e$,2 L\e(B ?\e$,2 T\e(B ?\e$,2 \\e(B ?\e$,2!@\e(B ?\e$,2!D\e(B ?\e$,2!H\e(B ?\e$,2!L\e(B ?\e$,2!P\e(B
 275    ?\e$,2!Q\e(B ?\e$,2!R\e(B ?\e$,2!S\e(B ?\e$,1{ \e(B ?\e$,2!`\e(B ?\e$,1x9\e(B ?\e$,1x:\e(B ?\e$,1xh\e(B ?\e$,1y$\e(B ?\e$,1y%\e(B ?\e,L \e(B ?\e$,1{!\e(B ?\e,A0\e(B ?\e,A2\e(B ?\e,A7\e(B ?\e,Aw\e(B
 276    ?\e$,2 p\e(B ?\e$,2 q\e(B ?\e$,2 r\e(B ?\e,Lq\e(B ?\e,Lt\e(B ?\e$,2 t\e(B ?\e,Lv\e(B ?\e,Lw\e(B ?\e$,2 w\e(B ?\e$,2 x\e(B ?\e$,2 y\e(B ?\e$,2 z\e(B ?\e$,2 {\e(B ?\e$,1)Q\e(B ?\e$,2 }\e(B ?\e$,2 ~\e(B
 277    ?\e$,2 \7f\e(B ?\e$,2! \e(B ?\e$,2!!\e(B ?\e,L!\e(B ?\e,L$\e(B ?\e$,2!#\e(B ?\e,L&\e(B ?\e,L'\e(B ?\e$,2!&\e(B ?\e$,2!'\e(B ?\e$,2!(\e(B ?\e$,2!)\e(B ?\e$,2!*\e(B ?\e$,1)P\e(B ?\e$,2!,\e(B ?\e,A)\e(B
 278    ?\e,Ln\e(B ?\e,LP\e(B ?\e,LQ\e(B ?\e,Lf\e(B ?\e,LT\e(B ?\e,LU\e(B ?\e,Ld\e(B ?\e,LS\e(B ?\e,Le\e(B ?\e,LX\e(B ?\e,LY\e(B ?\e,LZ\e(B ?\e,L[\e(B ?\e,L\\e(B ?\e,L]\e(B ?\e,L^\e(B
 279    ?\e,L_\e(B ?\e,Lo\e(B ?\e,L`\e(B ?\e,La\e(B ?\e,Lb\e(B ?\e,Lc\e(B ?\e,LV\e(B ?\e,LR\e(B ?\e,Ll\e(B ?\e,Lk\e(B ?\e,LW\e(B ?\e,Lh\e(B ?\e,Lm\e(B ?\e,Li\e(B ?\e,Lg\e(B ?\e,Lj\e(B
 280    ?\e,LN\e(B ?\e,L0\e(B ?\e,L1\e(B ?\e,LF\e(B ?\e,L4\e(B ?\e,L5\e(B ?\e,LD\e(B ?\e,L3\e(B ?\e,LE\e(B ?\e,L8\e(B ?\e,L9\e(B ?\e,L:\e(B ?\e,L;\e(B ?\e,L<\e(B ?\e,L=\e(B ?\e,L>\e(B
 281    ?\e,L?\e(B ?\e,LO\e(B ?\e,L@\e(B ?\e,LA\e(B ?\e,LB\e(B ?\e,LC\e(B ?\e,L6\e(B ?\e,L2\e(B ?\e,LL\e(B ?\e,LK\e(B ?\e,L7\e(B ?\e,LH\e(B ?\e,LM\e(B ?\e,LI\e(B ?\e,LG\e(B ?\e,LJ\e(B
 282    ]
 283   "Cyrillic KOI8-U decoding table.")
 284
 285 (let ((table (make-translation-table-from-vector
 286               cyrillic-koi8-u-decode-table)))
 287   (define-translation-table 'cyrillic-koi8-u-nonascii-translation-table table)
 288   (define-translation-table 'cyrillic-koi8-u-encode-table
 289     (char-table-extra-slot table 0)))
 290
 291 (makunbound 'cyrillic-koi8-u-decode-table)
 292
 293 (define-ccl-program ccl-decode-koi8-u
 294   `(4
 295     ((loop
 296       (r0 = 0)
 297       (read r1)
 298       (if (r1 < 128)
 299           (write-repeat r1)
 300         ((translate-character cyrillic-koi8-u-nonascii-translation-table r0 r1)
 301          (translate-character ucs-translation-table-for-decode r0 r1)
 302          (write-multibyte-character r0 r1)
 303          (repeat))))))
 304   "CCL program to decode KOI8-U.")
 305
 306 (define-ccl-program ccl-encode-koi8-u
 307   `(1
 308     ((loop
 309       (read-multibyte-character r0 r1)
 310       (translate-character cyrillic-koi8-u-encode-table r0 r1)
 311       (if (r0 != ,(charset-id 'ascii))
 312           (if (r0 != ,(charset-id 'eight-bit-graphic))
 313               (if (r0 != ,(charset-id 'eight-bit-control))
 314                   (r1 = ??))))
 315       (write-repeat r1))))
 316   "CCL program to encode KOI8-U.")
 317
 318 (cyrillic-unify-encoding 'cyrillic-koi8-u-encode-table)
 319
 320 (make-coding-system
 321  'koi8-u 4
 322  ?U "KOI8-U 8-bit encoding for Cyrillic (MIME: KOI8-U)"
 323  '(ccl-decode-koi8-u . ccl-encode-koi8-u)
 324  `((safe-chars . cyrillic-koi8-u-encode-table)
 325    (mime-charset . koi8-u)
 326    (valid-codes (0 . 255))
 327    (dependency unify-8859-on-encoding-mode unify-8859-on-decoding-mode)))
 328
 329 (define-ccl-program ccl-encode-koi8-u-font
 330   `(0
 331     (translate-character cyrillic-koi8-u-encode-table r0 r1))
 332   "CCL program to encode Cyrillic chars to KOI-U font.")
 333
 334 (add-to-list 'font-ccl-encoder-alist '("koi8-u" . ccl-encode-koi8-u-font))
 335
 336 (set-language-info-alist
 337  "Ukrainian" `((coding-system koi8-u)
 338                (coding-priority koi8-u)
 339                (nonascii-translation
 340                 . ,(get 'cyrillic-koi8-u-nonascii-translation-table
 341                         'translation-table))
 342                (input-method . "ukrainian-computer")
 343                (documentation
 344                 . "Support for Ukrainian with KOI8-U character set."))
 345  '("Cyrillic"))
 346
 347 ;;; ALTERNATIVNYJ stuff
 348
 349 ;; Fixme: It's unclear what's the correct table.  I've found
 350 ;; statements both that it's the same as cp866 and somewhat different,
 351 ;; but nothing that looks really definitive.
 352 (defvar cyrillic-alternativnyj-decode-table
 353   [
 354    0   1   2   3   4   5   6   7   8   9  10  11  12  13  14  15
 355    16  17  18  19  20  21  22  23  24  25  26  27  28  29  30  31
 356    32  33  34  35  36  37  38  39  40  41  42  43  44  45  46  47
 357    48  49  50  51  52  53  54  55  56  57  58  59  60  61  62  63
 358    64  65  66  67  68  69  70  71  72  73  74  75  76  77  78  79
 359    80  81  82  83  84  85  86  87  88  89  90  91  92  93  94  95
 360    96  97  98  99 100 101 102 103 104 105 106 107 108 109 110 111
 361    112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127
 362 ;;    ?\e$,1(0\e(B  ?\e$,1(1\e(B  ?\e$,1(2\e(B  ?\e$,1(3\e(B  ?\e$,1(4\e(B  ?\e$,1(5\e(B  ?\e$,1(6\e(B  ?\e$,1(7\e(B  ?\e$,1(8\e(B  ?\e$,1(9\e(B  ?\e$,1(:\e(B  ?\e$,1(;\e(B  ?\e$,1(<\e(B  ?\e$,1(=\e(B  ?\e$,1(>\e(B  ?\e$,1(?\e(B
 363 ;;    ?\e$,1(@\e(B  ?\e$,1(A\e(B  ?\e$,1(B\e(B  ?\e$,1(C\e(B  ?\e$,1(D\e(B  ?\e$,1(E\e(B  ?\e$,1(F\e(B  ?\e$,1(G\e(B  ?\e$,1(H\e(B  ?\e$,1(I\e(B  ?\e$,1(J\e(B  ?\e$,1(K\e(B  ?\e$,1(L\e(B  ?\e$,1(M\e(B  ?\e$,1(N\e(B  ?\e$,1(O\e(B
 364 ;;    ?\e$,1(P\e(B  ?\e$,1(Q\e(B  ?\e$,1(R\e(B  ?\e$,1(S\e(B  ?\e$,1(T\e(B  ?\e$,1(U\e(B  ?\e$,1(V\e(B  ?\e$,1(W\e(B  ?\e$,1(X\e(B  ?\e$,1(Y\e(B  ?\e$,1(Z\e(B  ?\e$,1([\e(B  ?\e$,1(\\e(B  ?\e$,1(]\e(B  ?\e$,1(^\e(B  ?\e$,1(_\e(B
 365 ;;    ?\e$,2!Q\e(B  ?\e$,2!R\e(B  ?\e$,2!S\e(B  ?\e$,2 "\e(B  ?\e$,2 D\e(B  ?\e$,2!!\e(B  ?\e$,2!"\e(B  ?\e$,2 v\e(B  ?\e$,2 u\e(B  ?\e$,2!#\e(B  ?\e$,2 q\e(B  ?\e$,2 w\e(B  ?\e$,2 }\e(B  ?\e$,2 |\e(B  ?\e$,2 {\e(B  ?\e$,2 0\e(B
 366 ;;    ?\e$,2 4\e(B  ?\e$,2 T\e(B  ?\e$,2 L\e(B  ?\e$,2 <\e(B  ?\e$,2  \e(B  ?\e$,2 \\e(B  ?\e$,2 ~\e(B  ?\e$,2 \7f\e(B  ?\e$,2 z\e(B  ?\e$,2 t\e(B  ?\e$,2!)\e(B  ?\e$,2!&\e(B  ?\e$,2! \e(B  ?\e$,2 p\e(B  ?\e$,2!,\e(B  ?\e$,2!'\e(B
 367 ;;    ?\e$,2!(\e(B  ?\e$,2!$\e(B  ?\e$,2!%\e(B  ?\e$,2 y\e(B  ?\e$,2 x\e(B  ?\e$,2 r\e(B  ?\e$,2 s\e(B  ?\e$,2!+\e(B  ?\e$,2!*\e(B  ?\e$,2 8\e(B  ?\e$,2 ,\e(B  ?\e$,2!H\e(B  ?\e$,2!D\e(B  ?\e$,2!L\e(B  ?\e$,2!P\e(B  ?\e$,2!@\e(B
 368 ;;    ?\e$,1(`\e(B  ?\e$,1(a\e(B  ?\e$,1(b\e(B  ?\e$,1(c\e(B  ?\e$,1(d\e(B  ?\e$,1(e\e(B  ?\e$,1(f\e(B  ?\e$,1(g\e(B  ?\e$,1(h\e(B  ?\e$,1(i\e(B  ?\e$,1(j\e(B  ?\e$,1(k\e(B  ?\e$,1(l\e(B  ?\e$,1(m\e(B  ?\e$,1(n\e(B  ?\e$,1(o\e(B
 369 ;;    ?\e$,1(!\e(B  ?\e$,1(q\e(B  ?\e$,1ry\e(B  ?\e$,1rx\e(B  ?\e$,1%A\e(B  ?\e$,1%@\e(B  ?\e$,1s:\e(B  ?\e$,1s9\e(B  ?\e$,1vq\e(B  ?\e$,1vs\e(B  ?\e,A1\e(B  ?\e,Aw\e(B  ?\e$,1uV\e(B  ?\e,A$\e(B  ?\e$,2!`\e(B  ?\e,A \e(B ;
 370 ;; 8859+Unicode
 371    ?\e,L0\e(B  ?\e,L1\e(B  ?\e,L2\e(B  ?\e,L3\e(B  ?\e,L4\e(B  ?\e,L5\e(B  ?\e,L6\e(B  ?\e,L7\e(B  ?\e,L8\e(B  ?\e,L9\e(B  ?\e,L:\e(B  ?\e,L;\e(B  ?\e,L<\e(B  ?\e,L=\e(B  ?\e,L>\e(B  ?\e,L?\e(B
 372    ?\e,L@\e(B  ?\e,LA\e(B  ?\e,LB\e(B  ?\e,LC\e(B  ?\e,LD\e(B  ?\e,LE\e(B  ?\e,LF\e(B  ?\e,LG\e(B  ?\e,LH\e(B  ?\e,LI\e(B  ?\e,LJ\e(B  ?\e,LK\e(B  ?\e,LL\e(B  ?\e,LM\e(B  ?\e,LN\e(B  ?\e,LO\e(B
 373    ?\e,LP\e(B  ?\e,LQ\e(B  ?\e,LR\e(B  ?\e,LS\e(B  ?\e,LT\e(B  ?\e,LU\e(B  ?\e,LV\e(B  ?\e,LW\e(B  ?\e,LX\e(B  ?\e,LY\e(B  ?\e,LZ\e(B  ?\e,L[\e(B  ?\e,L\\e(B  ?\e,L]\e(B  ?\e,L^\e(B  ?\e,L_\e(B
 374    ?\e$,2!Q\e(B  ?\e$,2!R\e(B  ?\e$,2!S\e(B  ?\e$,2 "\e(B  ?\e$,2 D\e(B  ?\e$,2!!\e(B  ?\e$,2!"\e(B  ?\e$,2 v\e(B  ?\e$,2 u\e(B  ?\e$,2!#\e(B  ?\e$,2 q\e(B  ?\e$,2 w\e(B  ?\e$,2 }\e(B  ?\e$,2 |\e(B  ?\e$,2 {\e(B  ?\e$,2 0\e(B
 375    ?\e$,2 4\e(B  ?\e$,2 T\e(B  ?\e$,2 L\e(B  ?\e$,2 <\e(B  ?\e$,2  \e(B  ?\e$,2 \\e(B  ?\e$,2 ~\e(B  ?\e$,2 \7f\e(B  ?\e$,2 z\e(B  ?\e$,2 t\e(B  ?\e$,2!)\e(B  ?\e$,2!&\e(B  ?\e$,2! \e(B  ?\e$,2 p\e(B  ?\e$,2!,\e(B  ?\e$,2!'\e(B
 376    ?\e$,2!(\e(B  ?\e$,2!$\e(B  ?\e$,2!%\e(B  ?\e$,2 y\e(B  ?\e$,2 x\e(B  ?\e$,2 r\e(B  ?\e$,2 s\e(B  ?\e$,2!+\e(B  ?\e$,2!*\e(B  ?\e$,2 8\e(B  ?\e$,2 ,\e(B  ?\e$,2!H\e(B  ?\e$,2!D\e(B  ?\e$,2!L\e(B  ?\e$,2!P\e(B  ?\e$,2!@\e(B
 377    ?\e,L`\e(B  ?\e,La\e(B  ?\e,Lb\e(B  ?\e,Lc\e(B  ?\e,Ld\e(B  ?\e,Le\e(B  ?\e,Lf\e(B  ?\e,Lg\e(B  ?\e,Lh\e(B  ?\e,Li\e(B  ?\e,Lj\e(B  ?\e,Lk\e(B  ?\e,Ll\e(B  ?\e,Lm\e(B  ?\e,Ln\e(B  ?\e,Lo\e(B
 378    ;; Taken from http://www.cyrillic.com/ref/cyrillic/koi-8alt.html
 379    ;; with guesses for the Unicodes of the glyphs in the absence of a
 380    ;; table.
 381    ?\e,L!\e(B  ?\e,Lq\e(B  ?\e$,1ry\e(B  ?\e$,1rx\e(B  ?\e$,1%A\e(B  ?\e$,1%@\e(B  ?\e$,1s:\e(B  ?\e$,1s9\e(B  ?\e$,1vq\e(B  ?\e$,1vs\e(B  ?\e,A1\e(B  ?\e,Aw\e(B  ?\e,Lp\e(B  ?\e,A$\e(B  ?\e$,2!`\e(B  ?\e,L \e(B]
 382   "Cyrillic ALTERNATIVNYJ decoding table.")
 383
 384 (let ((table (make-translation-table-from-vector
 385               cyrillic-alternativnyj-decode-table)))
 386   (define-translation-table 'cyrillic-alternativnyj-nonascii-translation-table
 387     table)
 388   (define-translation-table 'cyrillic-alternativnyj-encode-table
 389     (char-table-extra-slot table 0)))
 390
 391 (makunbound 'cyrillic-alternativnyj-decode-table)
 392
 393 (define-ccl-program ccl-decode-alternativnyj
 394   `(4
 395     ((loop
 396       (r0 = 0)
 397       (read r1)
 398       (if (r1 < 128)
 399           (write-repeat r1)
 400         ((translate-character cyrillic-alternativnyj-nonascii-translation-table
 401                               r0 r1)
 402          (translate-character ucs-translation-table-for-decode r0 r1)
 403          (write-multibyte-character r0 r1)
 404          (repeat))))))
 405   "CCL program to decode Alternativnyj.")
 406
 407 (define-ccl-program ccl-encode-alternativnyj
 408   `(1
 409     ((loop
 410       (read-multibyte-character r0 r1)
 411       (translate-character cyrillic-alternativnyj-encode-table r0 r1)
 412       (if (r0 != ,(charset-id 'ascii))
 413           (if (r0 != ,(charset-id 'eight-bit-graphic))
 414               (if (r0 != ,(charset-id 'eight-bit-control))
 415                   (r1 = ??))))
 416       (write-repeat r1))))
 417   "CCL program to encode Alternativnyj.")
 418
 419 (cyrillic-unify-encoding 'cyrillic-alternativnyj-encode-table)
 420
 421 (make-coding-system
 422  'cyrillic-alternativnyj 4 ?A
 423  "ALTERNATIVNYJ 8-bit encoding for Cyrillic."
 424  '(ccl-decode-alternativnyj . ccl-encode-alternativnyj)
 425  `((safe-chars . cyrillic-alternativnyj-encode-table)
 426    (valid-codes (0 . 255))
 427    (dependency unify-8859-on-encoding-mode unify-8859-on-decoding-mode)))
 428
 429 (define-coding-system-alias 'alternativnyj 'cyrillic-alternativnyj)
 430
 431 (define-ccl-program ccl-encode-alternativnyj-font
 432   `(0
 433     (translate-character cyrillic-alternativnyj-encode-table r0 r1))
 434   "CCL program to encode Cyrillic chars to Alternativnyj font.")
 435
 436 (add-to-list 'font-ccl-encoder-alist
 437              '("alternativnyj" . ccl-encode-alternativnyj-font))
 438
 439 (set-language-info-alist
 440  "Cyrillic-ALT" `((charset cyrillic-iso8859-5)
 441                   (nonascii-translation
 442                    . ,(get 'cyrillic-alternativnyj-nonascii-translation-table
 443                            'translation-table))
 444                   (coding-system cyrillic-alternativnyj)
 445                   (coding-priority cyrillic-alternativnyj)
 446                   (input-method . "russian-typewriter")
 447                   (features cyril-util)
 448                   (unibyte-display . cyrillic-alternativnyj)
 449                   (sample-text . "Russian (\e,L@caaZXY\e(B)       \e,L7T`PRabRcYbU\e(B!")
 450                   (documentation . "Support for Cyrillic ALTERNATIVNYJ."))
 451  '("Cyrillic"))
 452
 453 (set-language-info-alist
 454  "Tajik" `((coding-system cyrillic-koi8-t)
 455            (coding-priority cyrillic-koi8-t)
 456            (nonascii-translation
 457             . ,(get 'decode-koi8-t 'translation-table))
 458            (input-method . "russian-typewriter") ; fixme?
 459            (features code-pages)
 460            (documentation . "Support for Tajik using KOI8-T."))
 461  '("Cyrillic"))
 462
 463 (eval-and-compile
 464   (setq
 465    non-iso-charset-alist
 466    (cp-make-coding-system
 467     windows-1251
 468     [?\\e$,1("\e(B ?\\e$,1(#\e(B ?\\e$,1rz\e(B ?\\e$,1(s\e(B ?\\e$,1r~\e(B ?\\e$,1s&\e(B ?\\e$,1s \e(B ?\\e$,1s!\e(B ?\\e$,1tL\e(B ?\\e$,1s0\e(B ?\\e$,1()\e(B ?\\e$,1s9\e(B ?\\e$,1(*\e(B ?\\e$,1(,\e(B ?\\e$,1(+\e(B ?\\e$,1(/\e(B ?\\e$,1(r\e(B
 469          ?\\e$,1rx\e(B ?\\e$,1ry\e(B ?\\e$,1r|\e(B ?\\e$,1r}\e(B ?\\e$,1s"\e(B ?\\e$,1rs\e(B ?\\e$,1rt\e(B nil ?\\e$,1ub\e(B ?\\e$,1(y\e(B ?\\e$,1s:\e(B ?\\e$,1(z\e(B ?\\e$,1(|\e(B ?\\e$,1({\e(B ?\\e$,1(\7f\e(B ?\\e,A \e(B ?\\e$,1(.\e(B
 470          ?\\e$,1(~\e(B ?\\e$,1((\e(B ?\\e,A$\e(B ?\\e$,1)P\e(B ?\\e,A&\e(B ?\\e,A'\e(B ?\\e$,1(!\e(B ?\\e,A)\e(B ?\\e$,1($\e(B ?\\e,A+\e(B ?\\e,A,\e(B ?\\e,A-\e(B ?\\e,A.\e(B ?\\e$,1('\e(B ?\\e,A0\e(B ?\\e,A1\e(B ?\\e$,1(&\e(B
 471          ?\\e$,1(v\e(B ?\\e$,1)Q\e(B ?\\e,A5\e(B ?\\e,A6\e(B ?\\e,A7\e(B ?\\e$,1(q\e(B ?\\e$,1uV\e(B ?\\e$,1(t\e(B ?\\e,A;\e(B ?\\e$,1(x\e(B ?\\e$,1(%\e(B ?\\e$,1(u\e(B ?\\e$,1(w\e(B ?\\e$,1(0\e(B ?\\e$,1(1\e(B ?\\e$,1(2\e(B ?\\e$,1(3\e(B
 472          ?\\e$,1(4\e(B ?\\e$,1(5\e(B ?\\e$,1(6\e(B ?\\e$,1(7\e(B ?\\e$,1(8\e(B ?\\e$,1(9\e(B ?\\e$,1(:\e(B ?\\e$,1(;\e(B ?\\e$,1(<\e(B ?\\e$,1(=\e(B ?\\e$,1(>\e(B ?\\e$,1(?\e(B ?\\e$,1(@\e(B ?\\e$,1(A\e(B ?\\e$,1(B\e(B ?\\e$,1(C\e(B ?\\e$,1(D\e(B
 473          ?\\e$,1(E\e(B ?\\e$,1(F\e(B ?\\e$,1(G\e(B ?\\e$,1(H\e(B ?\\e$,1(I\e(B ?\\e$,1(J\e(B ?\\e$,1(K\e(B ?\\e$,1(L\e(B ?\\e$,1(M\e(B ?\\e$,1(N\e(B ?\\e$,1(O\e(B ?\\e$,1(P\e(B ?\\e$,1(Q\e(B ?\\e$,1(R\e(B ?\\e$,1(S\e(B ?\\e$,1(T\e(B ?\\e$,1(U\e(B
 474          ?\\e$,1(V\e(B ?\\e$,1(W\e(B ?\\e$,1(X\e(B ?\\e$,1(Y\e(B ?\\e$,1(Z\e(B ?\\e$,1([\e(B ?\\e$,1(\\e(B ?\\e$,1(]\e(B ?\\e$,1(^\e(B ?\\e$,1(_\e(B ?\\e$,1(`\e(B ?\\e$,1(a\e(B ?\\e$,1(b\e(B ?\\e$,1(c\e(B ?\\e$,1(d\e(B ?\\e$,1(e\e(B ?\\e$,1(f\e(B
 475          ?\\e$,1(g\e(B ?\\e$,1(h\e(B ?\\e$,1(i\e(B ?\\e$,1(j\e(B ?\\e$,1(k\e(B ?\\e$,1(l\e(B ?\\e$,1(m\e(B ?\\e$,1(n\e(B ?\\e$,1(o\e(B] nil ?b)))
 476
 477 (define-coding-system-alias 'cp1251 'windows-1251)
 478
 479 (let ((elt `("microsoft-cp1251" windows-1251 1
 480              ,(get 'encode-windows-1251 'translation-table)))
 481       (slot (assoc "microsoft-cp1251" ctext-non-standard-encodings-alist)))
 482   (if slot
 483       (setcdr slot (cdr elt))
 484     (push elt ctext-non-standard-encodings-alist)))
 485
 486 (define-ccl-program ccl-encode-windows-1251-font
 487   `(0
 488     ((if (r0 == ,(charset-id 'mule-unicode-0100-24ff))
 489          ((r1 <<= 7)
 490           (r1 += r2)))
 491      (translate-character encode-windows-1251 r0 r1))))
 492
 493 (add-to-list 'font-ccl-encoder-alist
 494              '("microsoft-cp1251" . ccl-encode-windows-1251-font))
 495
 496 (set-language-info-alist
 497  "Bulgarian" `((coding-system windows-1251)
 498                (coding-priority windows-1251)
 499                (ctext-non-standard-encodings "microsoft-cp1251")
 500                (overriding-fontspec
 501                 (,(get 'encode-windows-1251 'translation-table)
 502                  . (nil . "microsoft-cp1251"))
 503                 (,(get 'cyrillic-koi8-r-encode-table 'translation-table)
 504                  . (nil . "koi8-r")))
 505                (nonascii-translation
 506                 . ,(get 'decode-windows-1251 'translation-table))
 507                (input-method . "bulgarian-bds")
 508                (documentation
 509                 . "Support for Bulgarian with windows-1251 character set.")
 510                (tutorial . "TUTORIAL.bg"))
 511  '("Cyrillic"))
 512
 513 (set-language-info-alist
 514  "Belarusian" `((coding-system windows-1251)
 515                 (coding-priority windows-1251)
 516                 (ctext-non-standard-encodings "microsoft-cp1251")
 517                 (overriding-fontspec
 518                  (,(get 'encode-windows-1251 'translation-table)
 519                   . (nil . "microsoft-cp1251"))
 520                  (,(get 'cyrillic-koi8-r-encode-table 'translation-table)
 521                   . (nil . "koi8-r")))
 522                 (nonascii-translation
 523                  . ,(get 'decode-windows-1251 'translation-table))
 524                 (input-method . "belarusian")
 525                 (documentation
 526                  . "Support for Belarusian with windows-1251 character set.
 527 \(The name Belarusian replaced Byelorussian in the early 1990s.)"))
 528  '("Cyrillic"))
 529
 530 (provide 'cyrillic)
 531
 532 ;;; arch-tag: bda71ae0-ba41-4cb6-a6e0-1dff542313d3
 533 ;;; cyrillic.el ends here