From ef83dfaf7da4dd955609358a7568399b09ead40f Mon Sep 17 00:00:00 2001 From: Paul Eggert Date: Tue, 19 Oct 1999 07:20:29 +0000 Subject: [PATCH] * language/japan-util.el (setup-japanese-environment-internal): Prefer japanese-iso-8bit if the system-type is usg-unix-v. --- lisp/language/japan-util.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) 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 "\\|[。？！]"))) -- 2.39.5