From 834503135c0817fa29c4d3355446e8868400afaf Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Fri, 22 Aug 1997 01:22:17 +0000 Subject: [PATCH] (setup-cyrillic-environment): Deleted. (setup-cyrillic-iso-environment): New function. (setup-cyrillic-koi8-environment): New function. (setup-cyrillic-alternativnyj-environment): New function. --- lisp/language/cyril-util.el | 21 ++++++++++++++++++--- 1 file 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 -- 2.39.2