From: Kenichi Handa <handa@m17n.org>
Date: Sun, 3 Aug 1997 02:54:04 +0000 (+0000)
Subject: (setup-chinese-gb-environment): Set
X-Git-Tag: emacs-20.1~854
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8b7be11f41005f8e8bd0e26d63be318ad2e5fdcf;p=emacs.git

(setup-chinese-gb-environment): Set
default value of default-input-method.
(setup-chinese-big5-environment): Likewise.
(setup-chinese-cns-environment): Likewise.  Correct input method
name.
---

diff --git a/lisp/language/china-util.el b/lisp/language/china-util.el
index 383a994b638..f9df1da74ab 100644
--- a/lisp/language/china-util.el
+++ b/lisp/language/china-util.el
@@ -51,7 +51,8 @@
   (setq sendmail-coding-system nil
 	rmail-file-coding-system 'chinese-iso-7bit)
 
-  (setq default-input-method  "chinese-py-punct"))
+  (setq default-input-method  "chinese-py-punct")
+  (setq-default default-input-method "chinese-py-punct"))
 
 ;;;###autoload
 (defun setup-chinese-big5-environment ()
@@ -79,7 +80,8 @@
   (setq sendmail-coding-system nil
 	rmail-file-coding-system 'chienese-iso-7bit)
 
-  (setq default-input-method "chinese-py-punct-b5"))
+  (setq default-input-method "chinese-py-punct-b5")
+  (setq-default default-input-method "chinese-py-punct-b5"))
 
 ;;;###autoload
 (defun setup-chinese-cns-environment ()
@@ -106,7 +108,8 @@
   (setq sendmail-coding-system nil
 	rmail-file-coding-system 'chinese-iso-7bit)
 
-  (setq default-input-method "quail-quick-cns"))
+  (setq default-input-method "chinese-quick-cns")
+  (setq-default default-input-method "chinese-quick-cns"))
 
 ;; Hz/ZW encoding stuffs