# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 868954938 0
# Node ID f98c1cb6b8077689a3614c5da05e7eba964654a8
# Parent  7509c58538a0d37fcd79da68e023c70e36c35ff5
(setup-chinese-gb-environment): Adjusted for the change of coding
category names.  Set default-input-method to chinese-py-punct.
(setup-chinese-big5-environment): Set default-input-method to
chinese-py-punct-b5.
(setup-chinese-cns-environment): Set default-input-method correctly.

diff -r 7509c58538a0 -r f98c1cb6b807 lisp/language/china-util.el
--- a/lisp/language/china-util.el	Tue Jul 15 08:22:18 1997 +0000
+++ b/lisp/language/china-util.el	Tue Jul 15 08:22:18 1997 +0000
@@ -33,16 +33,17 @@
   (setq primary-language "Chinese-GB")
 
   (setq coding-category-iso-8-2 'chinese-iso-8bit)
-  (setq coding-category-iso-else 'chinese-iso-7bit)
+  (setq coding-category-iso-7-else 'chinese-iso-7bit)
   (setq coding-category-big5 'chinese-big5)
 
   (set-coding-priority
    '(coding-category-iso-7
-     coding-category-iso-else
+     coding-category-iso-7-else
      coding-category-iso-8-2
      coding-category-big5
      coding-category-iso-8-1
-     coding-category-emacs-mule))
+     coding-category-emacs-mule
+     coding-category-iso-8-else))
 
   (setq-default buffer-file-coding-system 'chinese-iso-8bit)
   (set-terminal-coding-system-internal 'chinese-iso-8bit)
@@ -50,7 +51,7 @@
   (setq sendmail-coding-system nil
 	rmail-file-coding-system 'chinese-iso-7bit)
 
-  (setq default-input-method '("Chinese-GB" . "chinese-py")))
+  (setq default-input-method  "chinese-py-punct"))
 
 ;;;###autoload
 (defun setup-chinese-big5-environment ()
@@ -61,15 +62,16 @@
   (setq primary-language "Chinese-BIG5")
 
   (setq coding-category-iso-8-2 'chinese-big5)
-  (setq coding-category-iso-else 'chinese-iso-7bit)
+  (setq coding-category-iso-7-else 'chinese-iso-7bit)
   (setq coding-category-big5 'chinese-big5)
 
   (set-coding-priority
    '(coding-category-iso-7
-     coding-category-iso-else
+     coding-category-iso-7-else
      coding-category-big5
      coding-category-iso-8-2
-     coding-category-emacs-mule))
+     coding-category-emacs-mule
+     coding-category-iso-8-else))
 
   (setq-default buffer-file-coding-system 'chinese-big5)
   (set-terminal-coding-system-internal 'chinese-big5)
@@ -77,7 +79,7 @@
   (setq sendmail-coding-system nil
 	rmail-file-coding-system 'chienese-iso-7bit)
 
-  (setq default-input-method '("Chinese-BIG5" . "chinese-b5-py")))
+  (setq default-input-method "chinese-py-punct-b5"))
 
 ;;;###autoload
 (defun setup-chinese-cns-environment ()
@@ -87,15 +89,16 @@
 
   (setq primary-language "Chinese-CNS")
 
-  (setq coding-category-iso-else 'chinese-iso-7bit)
+  (setq coding-category-iso-7-else 'chinese-iso-7bit)
   (setq coding-category-big5 'chinese-big5)
   (setq coding-category-iso-8-2 'chinese-big5)
 
   (set-coding-priority
    '(coding-category-iso-7
-     coding-category-iso-else
+     coding-category-iso-7-else
      coding-category-iso-8-2
-     coding-category-big5))
+     coding-category-big5
+     coding-category-iso-7-else))
 
   (setq-default buffer-file-coding-system 'chinese-iso-7bit)
   (set-terminal-coding-system-internal 'chinese-iso-7bit)
@@ -103,7 +106,7 @@
   (setq sendmail-coding-system nil
 	rmail-file-coding-system 'chinese-iso-7bit)
 
-  (setq default-input-method '("Chinese-CNS" . "quail-quick-cns")))
+  (setq default-input-method "quail-quick-cns"))
 
 ;; Hz/ZW encoding stuffs