From: kaoru <kaoru>
Date: Fri, 15 Sep 2000 16:37:17 +0000 (+0000)
Subject: * utils/ptexinfmt.el (texinfo-multitable-widths): Add
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=a621b4fced2dd5a6fdc657caf6d410a5df90cc42;p=elisp%2Fwanderlust.git

* utils/ptexinfmt.el (texinfo-multitable-widths): Add
broken-facility check.
(texinfo-multitable-item): Use it, when broken-facility check.
---

diff --git a/utils/ptexinfmt.el b/utils/ptexinfmt.el
index 4209158..a073db9 100644
--- a/utils/ptexinfmt.el
+++ b/utils/ptexinfmt.el
@@ -46,7 +46,7 @@
 
 ;; @var
 (broken-facility texinfo-format-var
-  "Don't perse @COMMAND included @var"
+  "Don't perse @var argument."
   (condition-case nil
       (with-temp-buffer
 	(let (texinfo-enclosure-list texinfo-alias-list)
@@ -59,7 +59,7 @@
 
 ;; @xref
 (broken-facility texinfo-format-xref
-  "Can't format 1st argument empty @xref."
+  "Can't format @xref, 1st argument is empty."
   (condition-case nil
       (with-temp-buffer
 	(let (texinfo-enclosure-list texinfo-alias-list)
@@ -72,7 +72,7 @@
 
 ;; @uref
 (broken-facility texinfo-format-uref
-  "Parse 2 times @uref argument."
+  "Parse twice @uref argument."
   (condition-case nil
       (with-temp-buffer
 	(let (texinfo-enclosure-list texinfo-alias-list)
@@ -83,6 +83,25 @@
     (error nil))
   ptexinfmt-disable-broken-notice)
 
+;; @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)))
+  ptexinfmt-disable-broken-notice)
+
+(broken-facility texinfo-multitable-item
+  "texinfo-multitable-item unsupport wide-char."
+  (if-broken texinfo-multitable-widths nil t)
+  ptexinfmt-disable-broken-notice)
+
+
 ;;; Obsolete
 ;; Removed Texinfo 3.8
 (put 'overfullrule 'texinfo-format 'texinfo-discard-line)
@@ -505,6 +524,9 @@ otherwise, insert URL-TITLE followed by URL in parentheses."
   (texinfo-discard-command)
   (texinfo-pop-stack 'multitable))
 
+(when-broken texinfo-multitable-widths
+  (fmakunbound 'texinfo-multitable-widths))
+
 (defun-maybe texinfo-multitable-widths ()
   "Return list of widths of each column in a multi-column table."
   (let (texinfo-multitable-width-list)
@@ -593,6 +615,9 @@ Cells within rows are separated by @tab."
     (delete-region texinfo-command-start end)
     row))
 
+(when-broken texinfo-multitable-item
+  (fmakunbound 'texinfo-multitable-item))
+
 (put 'multitable 'texinfo-item 'texinfo-multitable-item)
 (defun-maybe texinfo-multitable-item ()
   "Format a row within a multicolumn table.