# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1203335639 0
# Node ID 0e222c52ad003f3a01660a11a9157d978fc41ebb
# Parent  6299bdf88132bbe804ca48e2a09f0ec6fda61a45
(setup-japanese-environment-internal):
Call use-cjk-char-width-table.

diff -r 6299bdf88132 -r 0e222c52ad00 lisp/language/japan-util.el
--- a/lisp/language/japan-util.el	Mon Feb 18 11:53:34 2008 +0000
+++ b/lisp/language/japan-util.el	Mon Feb 18 11:53:59 2008 +0000
@@ -36,7 +36,8 @@
   ;; 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)))
+    (prefer-coding-system 'japanese-iso-8bit))
+  (use-cjk-char-width-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)