diff options
| author | Paul Eggert | 1999-10-19 07:20:29 +0000 |
|---|---|---|
| committer | Paul Eggert | 1999-10-19 07:20:29 +0000 |
| commit | ef83dfaf7da4dd955609358a7568399b09ead40f (patch) | |
| tree | 40cd013a249211ee1509541f202653a0f77189be | |
| parent | 40c81f74c34aa35f0cba7adccf9177a6e5f9940d (diff) | |
| download | emacs-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.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 @@ | |||
| 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 | ||