From 5e92d2b80109ccad114ed62591b9f6d518a0e800 Mon Sep 17 00:00:00 2001
From: Kenichi Handa <handa@m17n.org>
Date: Thu, 22 Jan 1998 01:45:17 +0000
Subject: [PATCH] In setup-LANGUAGE-environment functions, adjust for the
 change of setup-8-bit-environment.

---
 lisp/language/cyril-util.el | 8 ++++----
 lisp/language/devan-util.el | 3 +--
 lisp/language/lao-util.el   | 3 +--
 lisp/language/thai-util.el  | 3 +--
 4 files changed, 7 insertions(+), 10 deletions(-)

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.
 
-- 
2.39.2