diff options
author | Kenichi Handa <handa@m17n.org> | 1997-08-22 01:22:17 +0000 |
---|---|---|
committer | Kenichi Handa <handa@m17n.org> | 1997-08-22 01:22:17 +0000 |
commit | 834503135c0817fa29c4d3355446e8868400afaf (patch) | |
tree | d0fac779e43f674363ffa2a6134d018416faaabf /lisp/language/cyril-util.el | |
parent | 5f1d80c7c2a78f49904f2e8967a798f805317747 (diff) | |
download | emacs-834503135c0817fa29c4d3355446e8868400afaf.tar.gz |
(setup-cyrillic-environment): Deleted.
(setup-cyrillic-iso-environment): New function.
(setup-cyrillic-koi8-environment): New function.
(setup-cyrillic-alternativnyj-environment): New function.
Diffstat (limited to 'lisp/language/cyril-util.el')
-rw-r--r-- | lisp/language/cyril-util.el | 21 |
1 files changed, 18 insertions, 3 deletions
diff --git a/lisp/language/cyril-util.el b/lisp/language/cyril-util.el index 03a81494c8b..99012709d4e 100644 --- a/lisp/language/cyril-util.el +++ b/lisp/language/cyril-util.el @@ -24,11 +24,26 @@ ;;; Code: ;;;###autoload -(defun setup-cyrillic-environment () - "Setup multilingual environment (MULE) for Cyrillic users." +(defun setup-cyrillic-iso-environment () + "Setup multilingual environment (MULE) for Cyrillic ISO-8859-5 users." (interactive) - (setup-8-bit-environment "Cyrillic" 'cyrillic-iso8859-5 'cyrillic-iso-8bit + (setup-8-bit-environment "Cyrillic-ISO" 'cyrillic-iso8859-5 + 'cyrillic-iso-8bit "cyrillic-yawerty")) + +;;;###autoload +(defun setup-cyrillic-koi8-environment () + "Setup multilingual environment (MULE) for Cyrillic KOI8 users." + (interactive) + (setup-8-bit-environment "Cyrillic-KOI8" 'cyrillic-iso8859-5 'cyrillic-koi8 "cyrillic-yawerty")) + +;;;###autoload +(defun setup-cyrillic-alternativnyj-environment () + "Setup multilingual environment (MULE) for Cyrillic ALTERNATIVNYJ users." + (interactive) + (setup-8-bit-environment "Cyrillic" 'cyrillic-iso8859-5 + 'cyrillic-alternativnyj "cyrillic-yawerty")) + ;; Display |