* language/japan-util.el (setup-japanese-environment-internal):
authorPaul Eggert <eggert@twinsun.com>
Tue, 19 Oct 1999 07:20:29 +0000 (07:20 +0000)
committerPaul Eggert <eggert@twinsun.com>
Tue, 19 Oct 1999 07:20:29 +0000 (07:20 +0000)
Prefer japanese-iso-8bit if the system-type is usg-unix-v.

lisp/language/japan-util.el

index 1493203..58645ba 100644 (file)
 
 ;;;###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 "\\|[\e$B!#!)!*\e(B]")))