Mercurial > emacs

diff lisp/language/japan-util.el @ 26086:cc03e8352d48

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* language/japan-util.el (setup-japanese-environment-internal): Prefer japanese-iso-8bit if the system-type is usg-unix-v.
author Paul Eggert <eggert@twinsun.com>
date Tue, 19 Oct 1999 07:20:29 +0000
parents b0c66c87b29b
children 60eb71a9f901
line wrap: on
line diff
--- a/lisp/language/japan-util.el	Tue Oct 19 07:20:09 1999 +0000
+++ b/lisp/language/japan-util.el	Tue Oct 19 07:20:29 1999 +0000
@@ -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 "\\|[。？！]")))