procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(setup-japanese-environment-internal):

Browse source 
Call use-cjk-char-width-table with arg `ja_JP'.
This commit is contained in:
Kenichi Handa 2009-06-30 01:52:12 +00:00
parent dbff07a260
commit 99b070c5fa
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -35,7 +35,7 @@
(if (memq system-type '(windows-nt ms-dos cygwin)) (if (memq system-type '(windows-nt ms-dos cygwin))
(prefer-coding-system 'japanese-shift-jis) (prefer-coding-system 'japanese-shift-jis)
(prefer-coding-system 'japanese-iso-8bit)) (prefer-coding-system 'japanese-iso-8bit))
(use-cjk-char-width-table)) (use-cjk-char-width-table 'ja_JP))
(defconst japanese-kana-table (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) '((?$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)