diff options
| author | Kenichi Handa <handa@m17n.org> | 1997-08-04 07:01:31 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 1997-08-04 07:01:31 +0000 |
| commit | 9ea5d0132723c8ec26e7814db614ebd4e7e38931 (patch) | |
| tree | 1e24255600031f822ebf26e7c6b9a265a20c34ba /lisp/language | |
| parent | 4cf44f08b1264879013727d0f91769cd4e6130f2 (diff) | |
| download | emacs-9ea5d0132723c8ec26e7814db614ebd4e7e38931.tar.gz | |
(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.
Diffstat (limited to 'lisp/language')
| -rw-r--r-- | lisp/language/china-util.el | 15 |
1 files changed, 9 insertions, 6 deletions
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) |