From: Kenichi Handa <handa@m17n.org>
Date: Wed, 18 Aug 2004 08:53:21 +0000 (+0000)
Subject: Register koi8-r in
X-Git-Tag: ttn-vms-21-2-B4~5252
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7be5dbd48ee3352bae791560fa259e0a70efb5fe;p=emacs.git

Register koi8-r in
ctext-non-standard-encodings-alist.
("Cyrillic-KOI8"): Add ctext-non-standard-encoding.
---

diff --git a/lisp/language/cyrillic.el b/lisp/language/cyrillic.el
index dc05f24698a..302929a116b 100644
--- a/lisp/language/cyrillic.el
+++ b/lisp/language/cyrillic.el
@@ -186,6 +186,13 @@ This works whether or not the table is Unicode-based or
 (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,6 +226,7 @@ This works whether or not the table is Unicode-based or
 			    '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)