Mercurial > emacs
comparison lisp/language/japan-util.el @ 18790:5b263fdf71a2
(setup-japanese-environment): Adjusted for the change of coding
category names. Set default-input-method correctly.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Tue, 15 Jul 1997 08:22:18 +0000 |
| parents | 1cf4e09c841d |
| children | a162ad4fde2e |
comparison
equal
deleted
inserted
replaced
| 18789:ddf73154a296 | 18790:5b263fdf71a2 |
|---|---|
| 34 (set-coding-priority | 34 (set-coding-priority |
| 35 '(coding-category-iso-7 | 35 '(coding-category-iso-7 |
| 36 coding-category-iso-8-2 | 36 coding-category-iso-8-2 |
| 37 coding-category-sjis | 37 coding-category-sjis |
| 38 coding-category-iso-8-1 | 38 coding-category-iso-8-1 |
| 39 coding-category-iso-else | 39 coding-category-iso-7-else |
| 40 coding-category-iso-8-else | |
| 40 coding-category-emacs-mule)) | 41 coding-category-emacs-mule)) |
| 41 | 42 |
| 42 (if (eq system-type 'ms-dos) | 43 (if (eq system-type 'ms-dos) |
| 43 (progn | 44 (progn |
| 44 (setq-default buffer-file-coding-system 'japanese-shift-jis) | 45 (setq-default buffer-file-coding-system 'japanese-shift-jis) |
| 48 '(japanese-shift-jis-dos . japanese-shift-jis-dos))) | 49 '(japanese-shift-jis-dos . japanese-shift-jis-dos))) |
| 49 (setq-default buffer-file-coding-system 'iso-2022-7bit) | 50 (setq-default buffer-file-coding-system 'iso-2022-7bit) |
| 50 (set-terminal-coding-system-internal 'iso-2022-7bit) | 51 (set-terminal-coding-system-internal 'iso-2022-7bit) |
| 51 (set-keyboard-coding-system-internal 'iso-2022-7bit)) | 52 (set-keyboard-coding-system-internal 'iso-2022-7bit)) |
| 52 | 53 |
| 53 (setq default-input-method '("Japanese" . "quail-ja")) | 54 (setq default-input-method "japanese") |
| 54 | 55 |
| 55 (setq sendmail-coding-system 'iso-2022-jp | 56 (setq sendmail-coding-system 'iso-2022-jp |
| 56 rmail-file-coding-system 'iso-2022-jp) | 57 rmail-file-coding-system 'iso-2022-jp) |
| 57 ) | 58 ) |
| 58 | 59 |