(setup-XXX-environment): Just call set-language-environment. If

they used to do some other jobs than what done by
set-language-environment, those jobs are done in
setup-XXX-environment-internal now.

diff --git a/lisp/language/china-util.el b/lisp/language/china-util.el
index 8cdf390122504d34f65c435a35dc07973117a78c..a4a2569a3d064be246a82858e2647aa7e34636cd 100644 (file)
--- a/lisp/language/china-util.el
+++ b/lisp/language/china-util.el
@@ -28,25 +28,19 @@
 (defun setup-chinese-gb-environment ()
   "Setup multilingual environment (MULE) for Chinese GB2312 users."
   (interactive)
-  (setup-english-environment)
-  (set-language-environment-coding-systems "Chinese-GB")
-  (setq default-input-method  "chinese-py-punct"))
+  (set-language-environment "Chinese-GB"))
 
 ;;;###autoload
 (defun setup-chinese-big5-environment ()
   "Setup multilingual environment (MULE) for Chinese Big5 users."
   (interactive)
-  (setup-english-environment)
-  (set-language-environment-coding-systems "Chinese-BIG5")
-  (setq default-input-method "chinese-py-punct-b5"))
+  (set-language-environment "Chinese-BIG5"))
 
 ;;;###autoload
 (defun setup-chinese-cns-environment ()
   "Setup multilingual environment (MULE) for Chinese CNS11643 family users."
   (interactive)
-  (setup-english-environment)
-  (set-language-environment-coding-systems "Chinese-CNS")
-  (setq default-input-method "chinese-cns-quick"))
+  (set-language-environment "Chinese-CNS"))
 
 ;; Hz/ZW encoding stuffs
 

diff --git a/lisp/language/cyril-util.el b/lisp/language/cyril-util.el
index 8aa51a04c517ae1baec01cea69951eeeddfc9954..4df69bcefee1039b3d06805659e7f89ebcfff26f 100644 (file)
--- a/lisp/language/cyril-util.el
+++ b/lisp/language/cyril-util.el
@@ -27,23 +27,19 @@
 (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-yawerty"))
+  (set-language-environment "Cyrillic-ISO"))
 
 ;;;###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-yawerty"))
+  (set-language-environment "Cyrillic-KOI8"))
 
 ;;;###autoload
 (defun setup-cyrillic-alternativnyj-environment ()
   "Setup multilingual environment (MULE) for Cyrillic ALTERNATIVNYJ users."
   (interactive)
-  (setup-8-bit-environment "Cyrillic-ALT" 'cyrillic-iso8859-5
-                          "cyrillic-yawerty")
-  (setq coding-category-raw-text 'cyrillic-alternativnyj))
+  (set-language-environment "Cyrillic-ALT"))
 
 ;;;###autoload
 (defun cyrillic-encode-koi8-r-char (char)

diff --git a/lisp/language/devan-util.el b/lisp/language/devan-util.el
index cd5a978e88103de92df62daa00e14667f9ebe809..ce2d564b1637a037732b9d850688d92abaaf87c0 100644 (file)
--- a/lisp/language/devan-util.el
+++ b/lisp/language/devan-util.el
@@ -44,8 +44,8 @@
 (defun setup-devanagari-environment ()
   "Setup multilingual environment (MULE) for languages using Devanagari."
   (interactive)
-  (setup-8-bit-environment "Devanagari" nil "devanagari-itrans"))
-
+  (set-language-environment "Devanagari"))
+          
 ;;; Basic functions.
 
 ;;;###autoload

diff --git a/lisp/language/ethio-util.el b/lisp/language/ethio-util.el
index ff5c54aa0907089ccae94053dde07ddb6ec6087c..37dc4c40a6c67d251997240a9a4e3f227b285f3f 100644 (file)
--- a/lisp/language/ethio-util.el
+++ b/lisp/language/ethio-util.el
@@ -32,10 +32,10 @@
 ;;;###autoload
 (defun setup-ethiopic-environment ()
   "Setup multilingual environment for Ethiopic."
-  (interactive)
-  (setup-english-environment)
-  (setq default-input-method "ethiopic")
+  (set-language-environment "Ethiopic"))
 
+;;;###autoload
+(defun setup-ethiopic-environment-internal ()
   (let ((key-bindings '((" " . ethio-insert-space)
                        ([?\S- ] . ethio-insert-ethio-space)
                        ([?\C-'] . ethio-gemination)

diff --git a/lisp/language/japan-util.el b/lisp/language/japan-util.el
index bdc33addd1cf5a38f3d84c468229870876e44fba..6cd54e27114cbe37ed209a18a5b5a3f99f79df45 100644 (file)
--- a/lisp/language/japan-util.el
+++ b/lisp/language/japan-util.el
@@ -30,12 +30,13 @@
 (defun setup-japanese-environment ()
   "Setup multilingual environment (MULE) for Japanese."
   (interactive)
-  (setup-english-environment)
-  (set-language-environment-coding-systems "Japanese")
+  (set-language-environment "Japanese"))
+
+;;;###autoload
+(defun setup-japanese-environment-internal ()
   (if (eq system-type 'ms-dos)
-      (prefer-coding-system 'japanese-shift-jis))
-  (setq default-file-name-coding-system 'japanese-iso-8bit)
-  (setq default-input-method "japanese")
+      (prefer-coding-system 'japanese-shift-jis)
+    (setq default-file-name-coding-system 'japanese-iso-8bit))
   (setq sentence-end-save sentence-end)
   (setq sentence-end (concat sentence-end "\\|[\e$B!#!)!*\e(B]")))
 

diff --git a/lisp/language/korea-util.el b/lisp/language/korea-util.el
index c1787a15a3b22dddf92b4f157f05875d971a9273..8afdbbfa822a0b4d41bf746f40315d4d1b3af91a 100644 (file)
--- a/lisp/language/korea-util.el
+++ b/lisp/language/korea-util.el
@@ -90,11 +90,10 @@
 (defun setup-korean-environment ()
   "Setup multilingual environment (MULE) for Korean."
   (interactive)
-  (setup-english-environment)
-  (set-language-environment-coding-systems "Korean")
-
-  (setq default-input-method "korean-hangul")
+  (set-language-environment "Korean"))
 
+;;;###autoload
+(defun setup-korean-environment-internal ()
   (let ((key-bindings korean-key-bindings))
     (while key-bindings
       (let* ((this (car key-bindings))

diff --git a/lisp/language/lao-util.el b/lisp/language/lao-util.el
index 4cada8f710d3c51314ebaeaf5750f13b27dccffa..cb78b7fc06751d1f4deebc49321a28e077d9d1e6 100644 (file)
--- a/lisp/language/lao-util.el
+++ b/lisp/language/lao-util.el
@@ -28,7 +28,7 @@
 (defun setup-lao-environment ()
   "Setup multilingual environment (MULE) for Lao."
   (interactive)
-  (setup-8-bit-environment "Lao" 'lao "lao"))
+  (set-language-environment "Lao"))
 
 (let ((l '((?\e(1!\e(B consonant "LETTER KOR  KAI'" "CHICKEN")
           (?\e(1"\e(B consonant "LETTER KHOR KHAI'" "EGG")

diff --git a/lisp/language/thai-util.el b/lisp/language/thai-util.el
index 645bf03df0ff083b365d69204bb5534af3526f78..3d4863313ec61edc260fff08d7c32a50dd190d78 100644 (file)
--- a/lisp/language/thai-util.el
+++ b/lisp/language/thai-util.el
@@ -28,7 +28,7 @@
 (defun setup-thai-environment ()
   "Setup multilingual environment (MULE) for Thai."
   (interactive)
-  (setup-8-bit-environment "Thai" 'thai-tis620 "thai-kesmanee"))
+  (set-language-environment "Thai"))
 
 ;; Setting information of Thai characters.
 

diff --git a/lisp/language/tibet-util.el b/lisp/language/tibet-util.el
index bb10564c69972595cdcc58cf1ad2be19c3421901..6a940212c52efde56ae95a71f8f5a360315251a6 100644 (file)
--- a/lisp/language/tibet-util.el
+++ b/lisp/language/tibet-util.el
@@ -35,9 +35,7 @@
 ;;;###autoload
 (defun setup-tibetan-environment ()
   (interactive)
-  (setup-english-environment)
-  (set-language-environment-coding-systems "Tibetan")
-  (setq default-input-method  "tibetan-wylie"))
+  (set-language-environment "Tibetan"))
 
 ;;; This function makes a transcription string for
 ;;; re-composing a character.
@@ -106,7 +104,7 @@
 ;;;
 ;;; Here are examples of the words "bsgrubs" and "h'uM"
 ;;;
-;;;            \e$(7"7\e2%q`"U\e1"7"G\e(B         \e2\e$(7"H`#A`"U0"_\e1\e(B        
+;;;            \e$(7"7\e(B\e2\e$(7%q`"U\e(B\e1\e$(7"7"G\e(B         \e2\e$(7"H`#A`"U0"_\e(B\e1        
 ;;;
 ;;;                             M
 ;;;             b s b s         h

diff --git a/lisp/language/viet-util.el b/lisp/language/viet-util.el
index 5e3ce7e9cf6126062acd82681197abbbdd029f74..0520a836ed2af4f15dc48424a60ee11854d49d7d 100644 (file)
--- a/lisp/language/viet-util.el
+++ b/lisp/language/viet-util.el
@@ -45,7 +45,7 @@
 (defun setup-vietnamese-environment ()
   "Setup multilingual environment (MULE) for Vietnamese VISCII users."
   (interactive)
-  (setup-8-bit-environment "Vietnamese" nil "vietnamese-viqr"))
+  (set-language-environment "Vietnamese"))
 
 ;; VIQR is a menmonic encoding specification for Vietnamese.
 ;; It represents diacritical marks by ASCII characters as follows: