From ca7495f7f86727e8da2d11c567c2223f28427525 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Tue, 15 Jul 1997 08:22:18 +0000 Subject: [PATCH] (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. --- lisp/language/china-util.el | 27 +++++++++++++++------------ 1 file changed, 15 insertions(+), 12 deletions(-) diff --git a/lisp/language/china-util.el b/lisp/language/china-util.el index 9896d6d5dce..383a994b638 100644 --- a/lisp/language/china-util.el +++ b/lisp/language/china-util.el @@ -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 -- 2.39.2