* utils/ptexinfmt.el (texinfo-multitable-widths): Fix

broken-facility probrem when use multitable unsupported
texinfmt.el.

diff --git a/ChangeLog b/ChangeLog
index 3b77245..ae1e6df 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2000-09-27  TAKAHASHI Kaoru  <kaoru@kaisei.org>
+
+       * utils/ptexinfmt.el (texinfo-multitable-widths): Fix
+       broken-facility probrem when use multitable unsupported
+       texinfmt.el.
+
 2000-09-26  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
        * utils/ptexinfmt.el (texinfo-format-printindex): Use (featurep

diff --git a/utils/ptexinfmt.el b/utils/ptexinfmt.el
index a129355..79657ec 100644 (file)
--- 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 "\e$BI}9-J8;z\e(B"))
-      (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 "\e$BI}9-J8;z\e(B"))
+         (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