32 |
;; By default, we use 'japanese-iso-8bit for file names. But, the |
;; By default, we use 'japanese-iso-8bit for file names. But, the |
33 |
;; following prefer-coding-system will override it. |
;; following prefer-coding-system will override it. |
34 |
(setq default-file-name-coding-system 'japanese-iso-8bit) |
(setq default-file-name-coding-system 'japanese-iso-8bit) |
35 |
(cond ((eq system-type 'ms-dos) |
(if (memq system-type '(windows-nt ms-dos cygwin)) |
36 |
(prefer-coding-system 'japanese-shift-jis)) |
(prefer-coding-system 'japanese-shift-jis))) |
|
((eq system-type 'usg-unix-v) |
|
|
(prefer-coding-system 'japanese-iso-8bit)))) |
|
37 |
|
|
38 |
(defconst japanese-kana-table |
(defconst japanese-kana-table |
39 |
'((?$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) |
'((?$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) |