From: Kenichi Handa <handa@m17n.org>
Date: Mon, 4 Aug 1997 07:01:31 +0000 (+0000)
Subject: (setup-chinese-gb-environment): Do not
X-Git-Tag: emacs-20.1~806
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=96cf572e1e5e6f95a9908c2aaaa62cd1365090c3;p=emacs.git

(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 --git a/lisp/language/china-util.el b/lisp/language/china-util.el
index f9df1da74ab..8813874c609 100644
--- a/lisp/language/china-util.el
+++ b/lisp/language/china-util.el
@@ -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)