Mercurial > emacs
changeset 19140:a86f1b81dcf5
(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.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Mon, 04 Aug 1997 07:01:31 +0000 |
| parents | e984e35192fd |
| children | 9e0468e59b5f |
| files | lisp/language/china-util.el |
| diffstat | 1 files changed, 9 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/language/china-util.el Mon Aug 04 07:01:31 1997 +0000 +++ b/lisp/language/china-util.el Mon Aug 04 07:01:31 1997 +0000 @@ -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)