From: kaoru <kaoru>
Date: Mon, 30 Oct 2000 02:33:12 +0000 (+0000)
Subject: * utils/ptexinfmt.el (ptexinfmt-disable-broken-notice-flag):
X-Git-Tag: wl-2_4-root~54
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=97c6aa71847f233886cc2f1c4a1eb6f03456364d;p=elisp%2Fwanderlust.git

* utils/ptexinfmt.el (ptexinfmt-disable-broken-notice-flag):
Renamed from `ptexinfmt-disable-broken-notice'.
---

diff --git a/ChangeLog b/ChangeLog
index fc11d1d..028ab64 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2000-10-30  TAKAHASHI Kaoru  <kaoru@kaisei.org>
+
+	* utils/ptexinfmt.el (ptexinfmt-disable-broken-notice-flag):
+	Renamed from `ptexinfmt-disable-broken-notice'.
+
 2000-10-27  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
 	* utils/ptexinfmt.el (texinfo-format-printindex): Mule for Windows
diff --git a/utils/ptexinfmt.el b/utils/ptexinfmt.el
index 711ccd5..7ec0c6e 100644
--- a/utils/ptexinfmt.el
+++ b/utils/ptexinfmt.el
@@ -41,8 +41,9 @@
 (provide 'ptexinfmt)
 
 ;;; Broken
-(defvar ptexinfmt-disable-broken-notice t
-  "If non-nil disable notice, when call `broken-facility'.")
+(defvar ptexinfmt-disable-broken-notice-flag t
+  "If non-nil disable notice, when call `broken-facility'.
+This is NO-NOTICE argument in `broken-facility'.")
 
 ;; sort -fd
 (broken-facility texinfo-format-printindex
@@ -50,10 +51,10 @@
   (if (and (memq system-type '(windows-nt ms-dos))
 ;;; I don't know version threshold. 
 ;;;	   (string< texinfmt-version "2.37 of 24 May 1997")
-	   (boundp 'MULE) (not (featurep 'meadow)))
+	   (boundp 'MULE) (not (featurep 'meadow))) ; Mule for Windows
       nil
     t)
-  ptexinfmt-disable-broken-notice)
+  ptexinfmt-disable-broken-notice-flag)
 
 ;; @var
 (broken-facility texinfo-format-var
@@ -66,7 +67,7 @@
 	  (texinfo-format-expand-region (point-min) (point-max))
 	  t))
     (error nil))
-  ptexinfmt-disable-broken-notice)
+  ptexinfmt-disable-broken-notice-flag)
 
 ;; @xref
 (broken-facility texinfo-format-xref
@@ -79,7 +80,7 @@
 	  (texinfo-format-expand-region (point-min) (point-max))
 	  t))
     (error nil))
-  ptexinfmt-disable-broken-notice)
+  ptexinfmt-disable-broken-notice-flag)
 
 ;; @uref
 (broken-facility texinfo-format-uref
@@ -92,11 +93,11 @@
 	  (texinfo-format-expand-region (point-min) (point-max))
 	  t))
     (error nil))
-  ptexinfmt-disable-broken-notice)
+  ptexinfmt-disable-broken-notice-flag)
 
 ;; @multitable
 (broken-facility texinfo-multitable-widths
-  "texinfo-multitable-widths unsupport wide-char."
+  "`texinfo-multitable-widths' unsupport wide-char."
   (if (fboundp 'texinfo-multitable-widths)
       (with-temp-buffer
 	(let ((str "幅広文字"))
@@ -108,12 +109,12 @@
 	    t)))
     ;; function definition is void
     t)
-  ptexinfmt-disable-broken-notice)
+  ptexinfmt-disable-broken-notice-flag)
 
 (broken-facility texinfo-multitable-item
-  "texinfo-multitable-item unsupport wide-char."
+  "`texinfo-multitable-item' unsupport wide-char."
   (if-broken texinfo-multitable-widths nil t)
-  ptexinfmt-disable-broken-notice)
+  ptexinfmt-disable-broken-notice-flag)
 
 
 ;;; Obsolete