Mercurial > emacs

changeset 50091:e43f492e9944

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(setup-japanese-environment-internal): Prefer japanese-shift-jis on DOS and Windows.
author Kenichi Handa <handa@m17n.org>
date Wed, 12 Mar 2003 07:39:24 +0000
parents 6d355ce2d494
children a176c7e90fc3
files lisp/language/japan-util.el
diffstat 1 files changed, 2 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/language/japan-util.el	Wed Mar 12 07:38:52 2003 +0000
+++ b/lisp/language/japan-util.el	Wed Mar 12 07:39:24 2003 +0000
@@ -32,10 +32,8 @@
   ;; 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)
-  (cond ((eq system-type 'ms-dos)
-	 (prefer-coding-system 'japanese-shift-jis))
-	((eq system-type 'usg-unix-v)
-	 (prefer-coding-system 'japanese-iso-8bit))))
+  (if (memq system-type '(windows-nt ms-dos cygwin))
+      (prefer-coding-system 'japanese-shift-jis)))
 
 (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)