From 3bec626de417907c37dda4d5e16f4642316c810d Mon Sep 17 00:00:00 2001 From: yamaoka Date: Wed, 27 Sep 2000 22:06:10 +0000 Subject: [PATCH] Synch with Wanderlust. --- ChangeLog | 6 ++++++ lisp/ptexinfmt.el | 19 +++++++++++-------- 2 files changed, 17 insertions(+), 8 deletions(-) diff --git a/ChangeLog b/ChangeLog index 92aa097..5d33888 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,9 @@ +2000-09-27 TAKAHASHI Kaoru + + * list/ptexinfmt.el (texinfo-multitable-widths): Fix + broken-facility probrem when use multitable unsupported + texinfmt.el. + 2000-09-26 TAKAHASHI Kaoru * lisp/ptexinfmt.el (texinfo-format-printindex): Use (featurep diff --git a/lisp/ptexinfmt.el b/lisp/ptexinfmt.el index a129355..79657ec 100644 --- a/lisp/ptexinfmt.el +++ b/lisp/ptexinfmt.el @@ -96,14 +96,17 @@ ;; @multitable (broken-facility texinfo-multitable-widths "texinfo-multitable-widths unsupport wide-char." - (with-temp-buffer - (let ((str "幅広文字")) - (texinfo-mode) - (insert (format " {%s}\n" str)) - (goto-char (point-min)) - (if (= (car (texinfo-multitable-widths)) (length str)) - nil - t))) + (if (fboundp 'texinfo-multitable-widths) + (with-temp-buffer + (let ((str "幅広文字")) + (texinfo-mode) + (insert (format " {%s}\n" str)) + (goto-char (point-min)) + (if (= (car (texinfo-multitable-widths)) (length str)) + nil + t))) + ;; function definition is void + t) ptexinfmt-disable-broken-notice) (broken-facility texinfo-multitable-item -- 1.7.10.4