From: Paul Eggert <eggert@twinsun.com>
Date: Tue, 19 Oct 1999 07:20:29 +0000 (+0000)
Subject: * language/japan-util.el (setup-japanese-environment-internal):
X-Git-Tag: emacs-pretest-21.0.90~6385
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ef83dfaf7da4dd955609358a7568399b09ead40f;p=emacs.git

* language/japan-util.el (setup-japanese-environment-internal):
Prefer japanese-iso-8bit if the system-type is usg-unix-v.
---

diff --git a/lisp/language/japan-util.el b/lisp/language/japan-util.el
index 14932039e79..58645ba6b11 100644
--- a/lisp/language/japan-util.el
+++ b/lisp/language/japan-util.el
@@ -34,9 +34,10 @@
 
 ;;;###autoload
 (defun setup-japanese-environment-internal ()
-  (if (eq system-type 'ms-dos)
-      (prefer-coding-system 'japanese-shift-jis)
-    (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)))
   (setq sentence-end-save sentence-end)
   (setq sentence-end (concat sentence-end "\\|[。？！]")))