# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 870678091 0
# Node ID a86f1b81dcf5c9405ccf688c20a7141e6c7c6b29
# Parent  e984e35192fd9bf0c40369e26cf2a80d334f38db
(setup-chinese-gb-environment): Do not
call set-terminal-coding-system and set-keyboard-coding-system,
instead call set-defualt-coding-systems.
(setup-chinese-big5-environment): Likewise.
(setup-chinese-cns-environment): Likewise.

diff -r e984e35192fd -r a86f1b81dcf5 lisp/language/china-util.el
--- a/lisp/language/china-util.el	Mon Aug 04 07:01:31 1997 +0000
+++ b/lisp/language/china-util.el	Mon Aug 04 07:01:31 1997 +0000
@@ -32,6 +32,7 @@
 
   (setq primary-language "Chinese-GB")
 
+  (set-default-coding-systems 'chinese-iso-8bit)
   (setq coding-category-iso-8-2 'chinese-iso-8bit)
   (setq coding-category-iso-7-else 'chinese-iso-7bit)
   (setq coding-category-big5 'chinese-big5)
@@ -46,8 +47,8 @@
      coding-category-iso-8-else))
 
   (setq-default buffer-file-coding-system 'chinese-iso-8bit)
-  (set-terminal-coding-system-internal 'chinese-iso-8bit)
-  (set-keyboard-coding-system-internal 'chinese-iso-8bit)
+  (setq default-terminal-coding-system 'chinese-iso-8bit)
+  (setq default-keyboard-coding-system 'chinese-iso-8bit)
   (setq sendmail-coding-system nil
 	rmail-file-coding-system 'chinese-iso-7bit)
 
@@ -62,6 +63,7 @@
 
   (setq primary-language "Chinese-BIG5")
 
+  (set-default-coding-systems 'chinese-big5)
   (setq coding-category-iso-8-2 'chinese-big5)
   (setq coding-category-iso-7-else 'chinese-iso-7bit)
   (setq coding-category-big5 'chinese-big5)
@@ -75,8 +77,8 @@
      coding-category-iso-8-else))
 
   (setq-default buffer-file-coding-system 'chinese-big5)
-  (set-terminal-coding-system-internal 'chinese-big5)
-  (set-keyboard-coding-system-internal 'chinese-big5)
+  (setq default-terminal-coding-system 'chinese-big5)
+  (setq default-keyboard-coding-system 'chinese-big5)
   (setq sendmail-coding-system nil
 	rmail-file-coding-system 'chienese-iso-7bit)
 
@@ -94,6 +96,7 @@
   (setq coding-category-iso-7-else 'chinese-iso-7bit)
   (setq coding-category-big5 'chinese-big5)
   (setq coding-category-iso-8-2 'chinese-big5)
+  (set-default-coding-systems 'chinese-iso-7bit)
 
   (set-coding-priority
    '(coding-category-iso-7
@@ -103,8 +106,8 @@
      coding-category-iso-7-else))
 
   (setq-default buffer-file-coding-system 'chinese-iso-7bit)
-  (set-terminal-coding-system-internal 'chinese-iso-7bit)
-  (set-keyboard-coding-system-internal 'chinese-iso-7bit)
+  (setq default-terminal-coding-system 'chinese-iso-7bit)
+  (setq default-keyboard-coding-system 'chinese-iso-7bit)
   (setq sendmail-coding-system nil
 	rmail-file-coding-system 'chinese-iso-7bit)