/[emacs]/emacs/lisp/language/japan-util.el
ViewVC logotype

Diff of /emacs/lisp/language/japan-util.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.33 by handa, Wed Mar 12 07:23:51 2003 UTC revision 1.34 by handa, Wed Mar 12 07:39:24 2003 UTC
# Line 32  Line 32 
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)

Legend:
Removed from v.1.33  
changed lines
  Added in v.1.34

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26