From d5f9316f0f46a287b0458a23f8a0a1caa7148489 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Wed, 12 Mar 2003 07:39:24 +0000 Subject: [PATCH] (setup-japanese-environment-internal): Prefer japanese-shift-jis on DOS and Windows. --- lisp/language/japan-util.el | 6 ++---- 1 file 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 @@ ;; By default, we use 'japanese-iso-8bit for file names. But, the ;; following prefer-coding-system will override it. (setq default-file-name-coding-system 'japanese-iso-8bit) - (cond ((eq system-type 'ms-dos) - (prefer-coding-system 'japanese-shift-jis)) - ((eq system-type 'usg-unix-v) - (prefer-coding-system 'japanese-iso-8bit)))) + (if (memq system-type '(windows-nt ms-dos cygwin)) + (prefer-coding-system 'japanese-shift-jis))) (defconst japanese-kana-table '((?$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) -- 2.39.2