From: Kenichi Handa <handa@m17n.org>
Date: Thu, 22 Jan 1998 01:45:17 +0000 (+0000)
Subject: In setup-LANGUAGE-environment functions, adjust for the change of
X-Git-Tag: emacs-20.3~2337
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5e92d2b80109ccad114ed62591b9f6d518a0e800;p=emacs.git

In setup-LANGUAGE-environment functions, adjust for the change of
setup-8-bit-environment.
---

diff --git a/lisp/language/cyril-util.el b/lisp/language/cyril-util.el
index 9b5f1495b92..418436f3ea8 100644
--- a/lisp/language/cyril-util.el
+++ b/lisp/language/cyril-util.el
@@ -28,21 +28,21 @@
   "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"))
+			   "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
+  (setup-8-bit-environment "Cyrillic-KOI8" 'cyrillic-iso8859-5
 			   "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")
+  (setup-8-bit-environment "Cyrillic-ALT" 'cyrillic-iso8859-5
+			   "cyrillic-yawerty")
   (setq coding-category-raw-text 'cyrillic-alternativnyj))
 
 
diff --git a/lisp/language/devan-util.el b/lisp/language/devan-util.el
index 13e18455b06..c811e62fb64 100644
--- a/lisp/language/devan-util.el
+++ b/lisp/language/devan-util.el
@@ -48,8 +48,7 @@
 (defun setup-devanagari-environment ()
   "Setup multilingual environment (MULE) for languages using Devanagari."
   (interactive)
-  (setup-8-bit-environment "Devanagari" nil 'devanagari
-			   "devanagari-itrans"))
+  (setup-8-bit-environment "Devanagari" nil "devanagari-itrans"))
 
 ;;; Basic functions.
 
diff --git a/lisp/language/lao-util.el b/lisp/language/lao-util.el
index fe2bd457269..4cada8f710d 100644
--- a/lisp/language/lao-util.el
+++ b/lisp/language/lao-util.el
@@ -28,8 +28,7 @@
 (defun setup-lao-environment ()
   "Setup multilingual environment (MULE) for Lao."
   (interactive)
-  (setup-8-bit-environment "Lao" 'lao 'iso-2022-7bit
-			   "lao"))
+  (setup-8-bit-environment "Lao" 'lao "lao"))
 
 (let ((l '((?(1!(B consonant "LETTER KOR  KAI'" "CHICKEN")
 	   (?(1"(B consonant "LETTER KHOR KHAI'" "EGG")
diff --git a/lisp/language/thai-util.el b/lisp/language/thai-util.el
index d7e7eb01cd0..645bf03df0f 100644
--- a/lisp/language/thai-util.el
+++ b/lisp/language/thai-util.el
@@ -28,8 +28,7 @@
 (defun setup-thai-environment ()
   "Setup multilingual environment (MULE) for Thai."
   (interactive)
-  (setup-8-bit-environment "Thai" 'thai-tis620 'thai-tis620
-			   "thai-kesmanee"))
+  (setup-8-bit-environment "Thai" 'thai-tis620 "thai-kesmanee"))
 
 ;; Setting information of Thai characters.