From: Kenichi Handa <handa@m17n.org>
Date: Sun, 2 Aug 1998 01:06:57 +0000 (+0000)
Subject: (cyrillic-encode-koi8-r-char): New funciton.
X-Git-Tag: emacs-20.3~197
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ce58d9b46e0a0b543219dbae9351ed16a8b7ff7f;p=emacs.git

(cyrillic-encode-koi8-r-char): New funciton.
(cyrillic-encode-alternativnyj-char): New function.
---

diff --git a/lisp/language/cyril-util.el b/lisp/language/cyril-util.el
index 418436f3ea8..8aa51a04c51 100644
--- a/lisp/language/cyril-util.el
+++ b/lisp/language/cyril-util.el
@@ -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