Mercurial > emacs

changeset 103630:a706fbab4da9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(setup-japanese-environment-internal): Call use-cjk-char-width-table with arg `ja_JP'.
author Kenichi Handa <handa@m17n.org>
date Tue, 30 Jun 2009 01:52:12 +0000
parents e9716d0e04ea
children 37ec2c241d37
files lisp/language/japan-util.el
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/language/japan-util.el	Tue Jun 30 01:51:08 2009 +0000
+++ b/lisp/language/japan-util.el	Tue Jun 30 01:52:12 2009 +0000
@@ -35,7 +35,7 @@
   (if (memq system-type '(windows-nt ms-dos cygwin))
       (prefer-coding-system 'japanese-shift-jis)
     (prefer-coding-system 'japanese-iso-8bit))
-  (use-cjk-char-width-table))
+  (use-cjk-char-width-table 'ja_JP))
 
 (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)