From 1a5f6e6adfcfb016b8172c92cf3e834492fdf0eb Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Sat, 29 Mar 2003 02:35:08 +0000 Subject: [PATCH] If system-type is not for Windows, prefer japanese-iso-8bit. --- lisp/ChangeLog | 5 +++++ lisp/language/japan-util.el | 4 ++-- 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 + + * 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) -- 2.39.2