mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-05-01 10:41:57 -07:00
Code Issues Projects Releases Wiki Activity

(setup-japanese-environment-internal): Prefer japanese-shift-jis on

Browse source 
DOS and Windows.
This commit is contained in:
Kenichi Handa 2003-03-12 07:39:24 +00:00
parent 187e92d01f
commit d5f9316f0f
1 changed files with 2 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/language/japan-util.el
View file

@ -32,10 +32,8 @@
;; By default, we use 'japanese-iso-8bit for file names. But, the
;; following prefer-coding-system will override it.
(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))))
(if (memq system-type '(windows-nt ms-dos cygwin))
(prefer-coding-system 'japanese-shift-jis)))
(defconst japanese-kana-table
'((?$B$"(B ?$B%"(B ?(I1(B) (?$B$$(B ?$B%$(B ?(I2(B) (?$B$&(B ?$B%&(B ?(I3(B) (?$B$((B ?$B%((B ?(I4(B) (?$B$*(B ?$B%*(B ?(I5(B)