From 29e57af439f7d560d37ccf03e5df127420cb0791 Mon Sep 17 00:00:00 2001 From: kaoru Date: Wed, 27 Sep 2000 16:28:55 +0000 Subject: [PATCH] * utils/ptexinfmt.el (texinfo-multitable-widths): Fix broken-facility probrem when use multitable unsupported texinfmt.el. --- ChangeLog | 6 ++++++ utils/ptexinfmt.el | 19 +++++++++++-------- 2 files changed, 17 insertions(+), 8 deletions(-) diff --git a/ChangeLog b/ChangeLog index 3b77245..ae1e6df 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,9 @@ +2000-09-27 TAKAHASHI Kaoru + + * utils/ptexinfmt.el (texinfo-multitable-widths): Fix + broken-facility probrem when use multitable unsupported + texinfmt.el. + 2000-09-26 TAKAHASHI Kaoru * utils/ptexinfmt.el (texinfo-format-printindex): Use (featurep diff --git a/utils/ptexinfmt.el b/utils/ptexinfmt.el index a129355..79657ec 100644 --- a/utils/ptexinfmt.el +++ b/utils/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