Mercurial > emacs
comparison lisp/language/china-util.el @ 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 | 6835f9c00ff5 |
| children | 0fb8728cd236 |
comparison
equal
deleted
inserted
replaced
| 19139:e984e35192fd | 19140:a86f1b81dcf5 |
|---|---|
| 30 (interactive) | 30 (interactive) |
| 31 (setup-english-environment) | 31 (setup-english-environment) |
| 32 | 32 |
| 33 (setq primary-language "Chinese-GB") | 33 (setq primary-language "Chinese-GB") |
| 34 | 34 |
| 35 (set-default-coding-systems 'chinese-iso-8bit) | |
| 35 (setq coding-category-iso-8-2 'chinese-iso-8bit) | 36 (setq coding-category-iso-8-2 'chinese-iso-8bit) |
| 36 (setq coding-category-iso-7-else 'chinese-iso-7bit) | 37 (setq coding-category-iso-7-else 'chinese-iso-7bit) |
| 37 (setq coding-category-big5 'chinese-big5) | 38 (setq coding-category-big5 'chinese-big5) |
| 38 | 39 |
| 39 (set-coding-priority | 40 (set-coding-priority |
| 44 coding-category-iso-8-1 | 45 coding-category-iso-8-1 |
| 45 coding-category-emacs-mule | 46 coding-category-emacs-mule |
| 46 coding-category-iso-8-else)) | 47 coding-category-iso-8-else)) |
| 47 | 48 |
| 48 (setq-default buffer-file-coding-system 'chinese-iso-8bit) | 49 (setq-default buffer-file-coding-system 'chinese-iso-8bit) |
| 49 (set-terminal-coding-system-internal 'chinese-iso-8bit) | 50 (setq default-terminal-coding-system 'chinese-iso-8bit) |
| 50 (set-keyboard-coding-system-internal 'chinese-iso-8bit) | 51 (setq default-keyboard-coding-system 'chinese-iso-8bit) |
| 51 (setq sendmail-coding-system nil | 52 (setq sendmail-coding-system nil |
| 52 rmail-file-coding-system 'chinese-iso-7bit) | 53 rmail-file-coding-system 'chinese-iso-7bit) |
| 53 | 54 |
| 54 (setq default-input-method "chinese-py-punct") | 55 (setq default-input-method "chinese-py-punct") |
| 55 (setq-default default-input-method "chinese-py-punct")) | 56 (setq-default default-input-method "chinese-py-punct")) |
| 60 (interactive) | 61 (interactive) |
| 61 (setup-english-environment) | 62 (setup-english-environment) |
| 62 | 63 |
| 63 (setq primary-language "Chinese-BIG5") | 64 (setq primary-language "Chinese-BIG5") |
| 64 | 65 |
| 66 (set-default-coding-systems 'chinese-big5) | |
| 65 (setq coding-category-iso-8-2 'chinese-big5) | 67 (setq coding-category-iso-8-2 'chinese-big5) |
| 66 (setq coding-category-iso-7-else 'chinese-iso-7bit) | 68 (setq coding-category-iso-7-else 'chinese-iso-7bit) |
| 67 (setq coding-category-big5 'chinese-big5) | 69 (setq coding-category-big5 'chinese-big5) |
| 68 | 70 |
| 69 (set-coding-priority | 71 (set-coding-priority |
| 73 coding-category-iso-8-2 | 75 coding-category-iso-8-2 |
| 74 coding-category-emacs-mule | 76 coding-category-emacs-mule |
| 75 coding-category-iso-8-else)) | 77 coding-category-iso-8-else)) |
| 76 | 78 |
| 77 (setq-default buffer-file-coding-system 'chinese-big5) | 79 (setq-default buffer-file-coding-system 'chinese-big5) |
| 78 (set-terminal-coding-system-internal 'chinese-big5) | 80 (setq default-terminal-coding-system 'chinese-big5) |
| 79 (set-keyboard-coding-system-internal 'chinese-big5) | 81 (setq default-keyboard-coding-system 'chinese-big5) |
| 80 (setq sendmail-coding-system nil | 82 (setq sendmail-coding-system nil |
| 81 rmail-file-coding-system 'chienese-iso-7bit) | 83 rmail-file-coding-system 'chienese-iso-7bit) |
| 82 | 84 |
| 83 (setq default-input-method "chinese-py-punct-b5") | 85 (setq default-input-method "chinese-py-punct-b5") |
| 84 (setq-default default-input-method "chinese-py-punct-b5")) | 86 (setq-default default-input-method "chinese-py-punct-b5")) |
| 92 (setq primary-language "Chinese-CNS") | 94 (setq primary-language "Chinese-CNS") |
| 93 | 95 |
| 94 (setq coding-category-iso-7-else 'chinese-iso-7bit) | 96 (setq coding-category-iso-7-else 'chinese-iso-7bit) |
| 95 (setq coding-category-big5 'chinese-big5) | 97 (setq coding-category-big5 'chinese-big5) |
| 96 (setq coding-category-iso-8-2 'chinese-big5) | 98 (setq coding-category-iso-8-2 'chinese-big5) |
| 99 (set-default-coding-systems 'chinese-iso-7bit) | |
| 97 | 100 |
| 98 (set-coding-priority | 101 (set-coding-priority |
| 99 '(coding-category-iso-7 | 102 '(coding-category-iso-7 |
| 100 coding-category-iso-7-else | 103 coding-category-iso-7-else |
| 101 coding-category-iso-8-2 | 104 coding-category-iso-8-2 |
| 102 coding-category-big5 | 105 coding-category-big5 |
| 103 coding-category-iso-7-else)) | 106 coding-category-iso-7-else)) |
| 104 | 107 |
| 105 (setq-default buffer-file-coding-system 'chinese-iso-7bit) | 108 (setq-default buffer-file-coding-system 'chinese-iso-7bit) |
| 106 (set-terminal-coding-system-internal 'chinese-iso-7bit) | 109 (setq default-terminal-coding-system 'chinese-iso-7bit) |
| 107 (set-keyboard-coding-system-internal 'chinese-iso-7bit) | 110 (setq default-keyboard-coding-system 'chinese-iso-7bit) |
| 108 (setq sendmail-coding-system nil | 111 (setq sendmail-coding-system nil |
| 109 rmail-file-coding-system 'chinese-iso-7bit) | 112 rmail-file-coding-system 'chinese-iso-7bit) |
| 110 | 113 |
| 111 (setq default-input-method "chinese-quick-cns") | 114 (setq default-input-method "chinese-quick-cns") |
| 112 (setq-default default-input-method "chinese-quick-cns")) | 115 (setq-default default-input-method "chinese-quick-cns")) |