If system-type is not for Windows, prefer japanese-iso-8bit.

2 files changed, 7 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 255d2c40f19..8a92d0d6b71 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-03-29  Kenichi Handa  <handa@etlken2>
+
+        * language/japan-util.el: If system-type is not for Windows,
+        prefer japanese-iso-8bit.
+
 2003-03-28  Sudish Joseph  <sudish@corp.earthlink.net>  (tiny change)
 
         * term/mac-win.el (iconify-or-deiconify-frame): Define for
diff --git a/lisp/language/japan-util.el b/lisp/language/japan-util.el
index 9ad6cb678c1..7c2cc069241 100644
--- a/lisp/language/japan-util.el
+++ b/lisp/language/japan-util.el
@@ -31,9 +31,9 @@
 (defun setup-japanese-environment-internal ()
   ;; 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)
   (if (memq system-type '(windows-nt ms-dos cygwin))
-      (prefer-coding-system 'japanese-shift-jis)))
+      (prefer-coding-system 'japanese-shift-jis)
+    (prefer-coding-system 'japanese-iso-8bit)))
 
 (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)