Mercurial > emacs

changeset 19452:9cf9cae37598

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(setup-cyrillic-environment): Deleted. (setup-cyrillic-iso-environment): New function. (setup-cyrillic-koi8-environment): New function. (setup-cyrillic-alternativnyj-environment): New function.
author Kenichi Handa <handa@m17n.org>
date Fri, 22 Aug 1997 01:22:17 +0000
parents 933bea774c3c
children e6134c179b4c
files lisp/language/cyril-util.el
diffstat 1 files changed, 18 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/language/cyril-util.el	Fri Aug 22 01:22:17 1997 +0000
+++ b/lisp/language/cyril-util.el	Fri Aug 22 01:22:17 1997 +0000
@@ -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-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" 'cyrillic-iso8859-5 'cyrillic-iso-8bit
+  (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