aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPaul Eggert1999-10-19 07:20:29 +0000
committerPaul Eggert1999-10-19 07:20:29 +0000
commitef83dfaf7da4dd955609358a7568399b09ead40f (patch)
tree40cd013a249211ee1509541f202653a0f77189be
parent40c81f74c34aa35f0cba7adccf9177a6e5f9940d (diff)
downloademacs-ef83dfaf7da4dd955609358a7568399b09ead40f.tar.gz
emacs-ef83dfaf7da4dd955609358a7568399b09ead40f.zip
* language/japan-util.el (setup-japanese-environment-internal):
Prefer japanese-iso-8bit if the system-type is usg-unix-v.
-rw-r--r--lisp/language/japan-util.el7
1 files 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 @@
34 34
35;;;###autoload 35;;;###autoload
36(defun setup-japanese-environment-internal () 36(defun setup-japanese-environment-internal ()
37 (if (eq system-type 'ms-dos) 37 (cond ((eq system-type 'ms-dos)
38 (prefer-coding-system 'japanese-shift-jis) 38 (prefer-coding-system 'japanese-shift-jis))
39 (setq default-file-name-coding-system 'japanese-iso-8bit)) 39 ((eq system-type 'usg-unix-v)
40 (prefer-coding-system 'japanese-iso-8bit)))
40 (setq sentence-end-save sentence-end) 41 (setq sentence-end-save sentence-end)
41 (setq sentence-end (concat sentence-end "\\|[。?!]"))) 42 (setq sentence-end (concat sentence-end "\\|[。?!]")))
42 43