From ce58d9b46e0a0b543219dbae9351ed16a8b7ff7f Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Sun, 2 Aug 1998 01:06:57 +0000 Subject: [PATCH] (cyrillic-encode-koi8-r-char): New funciton. (cyrillic-encode-alternativnyj-char): New function. --- lisp/language/cyril-util.el | 13 +++++++++++++ 1 file changed, 13 insertions(+) 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 -- 2.39.2