# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 902020017 0
# Node ID 059cd9afc6e4d38333043e1610a1f1364933a83f
# Parent  e0e17bbd8e6cd1be1cc96c15ccdac01481321c38
(cyrillic-encode-koi8-r-char): New funciton.
(cyrillic-encode-alternativnyj-char): New function.

diff -r e0e17bbd8e6c -r 059cd9afc6e4 lisp/language/cyril-util.el
--- a/lisp/language/cyril-util.el	Sun Aug 02 01:06:57 1998 +0000
+++ b/lisp/language/cyril-util.el	Sun Aug 02 01:06:57 1998 +0000
@@ -45,6 +45,19 @@
 			   "cyrillic-yawerty")
   (setq coding-category-raw-text 'cyrillic-alternativnyj))
 
+;;;###autoload
+(defun cyrillic-encode-koi8-r-char (char)
+  "Return KOI8-R external character code of CHAR if appropriate."
+  (aref (char-table-extra-slot cyrillic-koi8-r-nonascii-translation-table 0)
+	char))
+
+;;;###autoload
+(defun cyrillic-encode-alternativnyj-char (char)
+  "Return ALTERNATIVNYJ external character code of CHAR if appropriate."
+  (aref (char-table-extra-slot
+	 cyrillic-alternativnyj-nonascii-translation-table 0)
+	char))
+
 
 ;; Display