diff options
| author | Kenichi Handa <handa@m17n.org> | 1998-08-02 01:06:57 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 1998-08-02 01:06:57 +0000 |
| commit | ce58d9b46e0a0b543219dbae9351ed16a8b7ff7f (patch) | |
| tree | 83582da9de94fef302cff6c8e1165f118dcd2bd1 /lisp/language | |
| parent | 70c58a1f514e692f92aa328604ac5ddb6766212f (diff) | |
| download | emacs-ce58d9b46e0a0b543219dbae9351ed16a8b7ff7f.tar.gz | |
(cyrillic-encode-koi8-r-char): New funciton.
(cyrillic-encode-alternativnyj-char): New function.
Diffstat (limited to 'lisp/language')
| -rw-r--r-- | lisp/language/cyril-util.el | 13 |
1 files changed, 13 insertions, 0 deletions
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 |