]> git.eshelyaron.com Git - emacs.git/commitdiff
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 9b5f1495b920699f148d3e9cdc655d2c30d55c72..418436f3ea84139eba2519d4c9dd90d5877ea7e9 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 13e18455b06bbc192e9a792f4920b478434c02d6..c811e62fb64e51eaa0f00df5b253667ef3cae57e 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 fe2bd4572699ec036b0df6ebd35bd3e667a749ab..4cada8f710d3c51314ebaeaf5750f13b27dccffa 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 d7e7eb01cd0bccb0c453b69f16cbf3b87c8572e3..645bf03df0ff083b365d69204bb5534af3526f78 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.