29 |
|
|
30 |
;;;###autoload |
;;;###autoload |
31 |
(defun setup-japanese-environment-internal () |
(defun setup-japanese-environment-internal () |
32 |
|
;; By default, we use 'japanese-iso-8bit for file names. But, the |
33 |
|
;; following prefer-coding-system will override it. |
34 |
|
(setq default-file-name-coding-system 'japanese-iso-8bit) |
35 |
(cond ((eq system-type 'ms-dos) |
(cond ((eq system-type 'ms-dos) |
36 |
(prefer-coding-system 'japanese-shift-jis)) |
(prefer-coding-system 'japanese-shift-jis)) |
37 |
((eq system-type 'usg-unix-v) |
((eq system-type 'usg-unix-v) |