From: Kenichi Handa Date: Sat, 29 Mar 2003 02:35:08 +0000 (+0000) Subject: If system-type is not for Windows, prefer japanese-iso-8bit. X-Git-Tag: ttn-vms-21-2-B4~10730 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1a5f6e6adfcfb016b8172c92cf3e834492fdf0eb;p=emacs.git If system-type is not for Windows, prefer japanese-iso-8bit. --- 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 + + * language/japan-util.el: If system-type is not for Windows, + prefer japanese-iso-8bit. + 2003-03-28 Sudish Joseph (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)