(cjk-char-width-table): Add cp932-2-byte.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e6fe5a4ed303d2f70c724eceacace6f3441e195c..f42b5d59b8305acb949782f700c3d194b548ae2c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2009-03-17  ARISAWA Akihiro  <ari@mbf.ocn.ne.jp>  (tiny change)
+
+       * international/characters.el (cjk-char-width-table): Add
+       cp932-2-byte.
+
 2009-03-17  Chong Yidong  <cyd@stupidchicken.com>
 
        * minibuffer.el (minibuffer-complete-and-exit): Doc fix.

diff --git a/lisp/international/characters.el b/lisp/international/characters.el
index 67c0f3c21e77ebbde2935199aae8f344142d011d..7b694b197591bf238941e09df8d87605264b5935 100644 (file)
--- a/lisp/international/characters.el
+++ b/lisp/international/characters.el
@@ -1031,7 +1031,7 @@ Combining diacritic or mark (Unicode General Category M)")
 (defvar cjk-char-width-table
   (let ((table (make-char-table nil)))
     (dolist (charset '(big5 chinese-gb2312 chinese-cns11643-1
-                           japanese-jisx0208 korean-ksc5601))
+                           japanese-jisx0208 cp932-2-byte korean-ksc5601))
       (map-charset-chars #'(lambda (range arg)
                             (set-char-table-range table range 2))
                         charset))