Mercurial > emacs
changeset 26086:cc03e8352d48
* 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 | 2473e4ca59b3 |
| children | e0d966fb548f |
| files | lisp/language/japan-util.el |
| diffstat | 1 files changed, 4 insertions(+), 3 deletions(-) [+] |
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 "\\|[。？！]")))