diff lisp/language/china-util.el @ 22987:708271862495

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

--- a/lisp/language/china-util.el	Mon Aug 10 06:29:02 1998 +0000
+++ b/lisp/language/china-util.el	Mon Aug 10 06:42:41 1998 +0000
@@ -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