* ptexinfmt.el (texinfo-multitable-widths): Use `make-char' instead of KANJI literal.

diff --git a/utils/ChangeLog b/utils/ChangeLog
index 7870f05..6c41ade 100644 (file)
--- a/utils/ChangeLog
+++ b/utils/ChangeLog
@@ -1,3 +1,8 @@
+2010-09-02  TAKAHASHI Kaoru  <kaoru@kaisei.org>
+
+       * ptexinfmt.el (texinfo-multitable-widths): Use `make-char'
+       instead of KANJI literal.
+
 2010-08-31  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
        * wl-addrbook.el: Delete traing whitespace.

diff --git a/utils/ptexinfmt.el b/utils/ptexinfmt.el
index d35fc65..4c3e9ec 100644 (file)
--- a/utils/ptexinfmt.el
+++ b/utils/ptexinfmt.el
@@ -170,7 +170,10 @@ DOCSTRING will be printed if ASSERTION is nil and
   "`texinfo-multitable-widths' unsupport wide-char."
   (if (fboundp 'texinfo-multitable-widths)
       (with-temp-buffer
-       (let ((str "\e$BI}9-J8;z\e(B"))
+       (let ((str (string (make-char 'japanese-jisx0208 73 125)
+                          (make-char 'japanese-jisx0208 57 45)
+                          (make-char 'japanese-jisx0208 74 56)
+                          (make-char 'japanese-jisx0208 59 122))))
          (texinfo-mode)
          (insert (format " {%s}\n" str))
          (goto-char (point-min))