From 824231c5a096cc4e653fa900f901d0a6d14456ca Mon Sep 17 00:00:00 2001 From: kaoru Date: Thu, 2 Sep 2010 01:04:10 +0000 Subject: [PATCH] * ptexinfmt.el (texinfo-multitable-widths): Use `make-char' instead of KANJI literal. --- utils/ChangeLog | 5 +++++ utils/ptexinfmt.el | 5 ++++- 2 files changed, 9 insertions(+), 1 deletion(-) 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 + + * ptexinfmt.el (texinfo-multitable-widths): Use `make-char' + instead of KANJI literal. + 2010-08-31 TAKAHASHI Kaoru * 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)) -- 1.7.10.4