[Emacs-diffs] Changes to emacs/lisp/language/cyrillic.el

[Kenichi Handa]

Index: emacs/lisp/language/cyrillic.el
diff -c emacs/lisp/language/cyrillic.el:1.46 
emacs/lisp/language/cyrillic.el:1.47
*** emacs/lisp/language/cyrillic.el:1.46        Thu Jan 22 00:17:18 2004
--- emacs/lisp/language/cyrillic.el     Wed Aug 18 08:53:21 2004
***************
*** 186,191 ****
--- 186,198 ----
  (define-coding-system-alias 'koi8 'cyrillic-koi8)
  (define-coding-system-alias 'cp878 'cyrillic-koi8)
  
+ (let ((elt `("koi8-r" koi8-r 1
+            ,(get 'cyrillic-koi8-r-encode-table 'translation-table)))
+       (slot (assoc "koi8-r" ctext-non-standard-encodings-alist)))
+   (if slot
+       (setcdr slot (cdr elt))
+     (push elt ctext-non-standard-encodings-alist)))
+ 
  ;; Allow displaying some of KOI & al with an 8859-5-encoded font.  We
  ;; won't bother about the exceptions when encoding the font, since
  ;; NBSP will fall through below and work anyhow, and we'll have
***************
*** 219,224 ****
--- 226,232 ----
                            'translation-table))
                   (coding-system cyrillic-koi8)
                   (coding-priority cyrillic-koi8 cyrillic-iso-8bit)
+                  (ctext-non-standard-encoding "koi8-r")
                   (input-method . "russian-typewriter")
                   (features cyril-util)
                   (unibyte-display . cyrillic-koi8)