From: Kenichi Handa Date: Wed, 12 Mar 2003 07:39:24 +0000 (+0000) Subject: (setup-japanese-environment-internal): Prefer japanese-shift-jis on X-Git-Tag: ttn-vms-21-2-B4~10940 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d5f9316f0f46a287b0458a23f8a0a1caa7148489;p=emacs.git (setup-japanese-environment-internal): Prefer japanese-shift-jis on DOS and Windows. --- 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)