# HG changeset patch # User Kenichi Handa # Date 1047454764 0 # Node ID e43f492e9944177c5914b20bd7d36cf674d8b018 # Parent 6d355ce2d494533716e461971d6eed701ba9983b (setup-japanese-environment-internal): Prefer japanese-shift-jis on DOS and Windows. diff -r 6d355ce2d494 -r e43f492e9944 lisp/language/japan-util.el --- a/lisp/language/japan-util.el Wed Mar 12 07:38:52 2003 +0000 +++ b/lisp/language/japan-util.el Wed Mar 12 07:39:24 2003 +0000 @@ -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)