In setup-LANGUAGE-environment functions, adjust for the change of
authorKenichi Handa <handa@m17n.org>
Thu, 22 Jan 1998 01:45:17 +0000 (01:45 +0000)
committerKenichi Handa <handa@m17n.org>
Thu, 22 Jan 1998 01:45:17 +0000 (01:45 +0000)
setup-8-bit-environment.

lisp/language/cyril-util.el
lisp/language/devan-util.el
lisp/language/lao-util.el
lisp/language/thai-util.el

index 9b5f149..418436f 100644 (file)
   "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))
 
 \f
index 13e1845..c811e62 100644 (file)
@@ -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.
 
index fe2bd45..4cada8f 100644 (file)
@@ -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 '((?\e(1!\e(B consonant "LETTER KOR  KAI'" "CHICKEN")
           (?\e(1"\e(B consonant "LETTER KHOR KHAI'" "EGG")
index d7e7eb0..645bf03 100644 (file)
@@ -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.