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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 255d2c40f19e1db69798c5d6251cd0b272dd3b84..8a92d0d6b713ecedffa91895fa7fdc38eb008cb2 100644 (file)
--- 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 9ad6cb678c14a0263a4102478935c36265fa181d..7c2cc0692412d9d153a356288d10efee79a1ac35 100644 (file)
--- 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
   '((?\e$B$"\e(B ?\e$B%"\e(B ?\e(I1\e(B) (?\e$B$$\e(B ?\e$B%$\e(B ?\e(I2\e(B) (?\e$B$&\e(B ?\e$B%&\e(B ?\e(I3\e(B) (?\e$B$(\e(B ?\e$B%(\e(B ?\e(I4\e(B) (?\e$B$*\e(B ?\e$B%*\e(B ?\e(I5\e(B)