From: kaoru <kaoru>
Date: Thu, 2 Sep 2010 01:04:10 +0000 (+0000)
Subject: * ptexinfmt.el (texinfo-multitable-widths): Use `make-char' instead of KANJI literal.
X-Git-Tag: merged-trunk-to-elmo-imap4-compliance-1^2
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=824231c5a096cc4e653fa900f901d0a6d14456ca;p=elisp%2Fwanderlust.git

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

diff --git a/utils/ChangeLog b/utils/ChangeLog
index 7870f05..6c41ade 100644
--- 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
--- 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 "幅広文字"))
+	(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))