Mercurial > emacs
changeset 22882:059cd9afc6e4
(cyrillic-encode-koi8-r-char): New funciton.
(cyrillic-encode-alternativnyj-char): New function.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Sun, 02 Aug 1998 01:06:57 +0000 |
| parents | e0e17bbd8e6c |
| children | 69bbe5cb5400 |
| files | lisp/language/cyril-util.el |
| diffstat | 1 files changed, 13 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- 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