emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] Changes to emacs/lisp/language/japan-util.el


From: Kenichi Handa
Subject: [Emacs-diffs] Changes to emacs/lisp/language/japan-util.el
Date: Fri, 28 Mar 2003 21:34:52 -0500

Index: emacs/lisp/language/japan-util.el
diff -c emacs/lisp/language/japan-util.el:1.34 
emacs/lisp/language/japan-util.el:1.35
*** emacs/lisp/language/japan-util.el:1.34      Wed Mar 12 02:39:24 2003
--- emacs/lisp/language/japan-util.el   Fri Mar 28 21:34:52 2003
***************
*** 31,39 ****
  (defun setup-japanese-environment-internal ()
    ;; 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)
    (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)
--- 31,39 ----
  (defun setup-japanese-environment-internal ()
    ;; By default, we use 'japanese-iso-8bit for file names.  But, the
    ;; following prefer-coding-system will override it.
    (if (memq system-type '(windows-nt ms-dos cygwin))
!       (prefer-coding-system 'japanese-shift-jis)
!     (prefer-coding-system 'japanese-iso-8bit)))
  
  (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)




reply via email to

[Prev in Thread] Current Thread [Next in Thread]