diff options
| author | Paul Eggert <eggert@twinsun.com> | 1999-10-19 07:20:29 +0000 |
|---|---|---|
| committer | Paul Eggert <eggert@twinsun.com> | 1999-10-19 07:20:29 +0000 |
| commit | ef83dfaf7da4dd955609358a7568399b09ead40f (patch) | |
| tree | 40cd013a249211ee1509541f202653a0f77189be | |
| parent | 40c81f74c34aa35f0cba7adccf9177a6e5f9940d (diff) | |
| download | emacs-ef83dfaf7da4dd955609358a7568399b09ead40f.tar.gz emacs-ef83dfaf7da4dd955609358a7568399b09ead40f.tar.bz2 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.el | 7 |
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 @@ ;;;###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 "\\|[。？！]"))) |