diff options
| author | Kenichi Handa | 2003-03-12 07:39:24 +0000 |
|---|---|---|
| committer | Kenichi Handa | 2003-03-12 07:39:24 +0000 |
| commit | d5f9316f0f46a287b0458a23f8a0a1caa7148489 (patch) | |
| tree | 9fb4ad3b1999c02be7ac9305dac955eb6040c708 | |
| parent | 187e92d01f3a346efeedfb41a9bc532c075529a7 (diff) | |
| download | emacs-d5f9316f0f46a287b0458a23f8a0a1caa7148489.tar.gz emacs-d5f9316f0f46a287b0458a23f8a0a1caa7148489.zip | |
(setup-japanese-environment-internal): Prefer japanese-shift-jis on
DOS and Windows.
| -rw-r--r-- | lisp/language/japan-util.el | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/lisp/language/japan-util.el b/lisp/language/japan-util.el index 7641593440c..9ad6cb678c1 100644 --- a/lisp/language/japan-util.el +++ b/lisp/language/japan-util.el | |||
| @@ -32,10 +32,8 @@ | |||
| 32 | ;; By default, we use 'japanese-iso-8bit for file names. But, the | 32 | ;; By default, we use 'japanese-iso-8bit for file names. But, the |
| 33 | ;; following prefer-coding-system will override it. | 33 | ;; following prefer-coding-system will override it. |
| 34 | (setq default-file-name-coding-system 'japanese-iso-8bit) | 34 | (setq default-file-name-coding-system 'japanese-iso-8bit) |
| 35 | (cond ((eq system-type 'ms-dos) | 35 | (if (memq system-type '(windows-nt ms-dos cygwin)) |
| 36 | (prefer-coding-system 'japanese-shift-jis)) | 36 | (prefer-coding-system 'japanese-shift-jis))) |
| 37 | ((eq system-type 'usg-unix-v) | ||
| 38 | (prefer-coding-system 'japanese-iso-8bit)))) | ||
| 39 | 37 | ||
| 40 | (defconst japanese-kana-table | 38 | (defconst japanese-kana-table |
| 41 | '((?$B$"(B ?$B%"(B ?(I1(B) (?$B$$(B ?$B%$(B ?(I2(B) (?$B$&(B ?$B%&(B ?(I3(B) (?$B$((B ?$B%((B ?(I4(B) (?$B$*(B ?$B%*(B ?(I5(B) | 39 | '((?$B$"(B ?$B%"(B ?(I1(B) (?$B$$(B ?$B%$(B ?(I2(B) (?$B$&(B ?$B%&(B ?(I3(B) (?$B$((B ?$B%((B ?(I4(B) (?$B$*(B ?$B%*(B ?(I5(B) |