From 216ae957d1a9e4949f9fe11d094c4fb434b1ca97 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Mon, 30 Oct 2000 02:36:54 +0000 Subject: [PATCH] Synch with Wanderlust. --- ChangeLog | 5 +++++ lisp/ptexinfmt.el | 23 ++++++++++++----------- 2 files changed, 17 insertions(+), 11 deletions(-) diff --git a/ChangeLog b/ChangeLog index 1c68d16..d5eebc3 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2000-10-30 TAKAHASHI Kaoru + + * lisp/ptexinfmt.el (ptexinfmt-disable-broken-notice-flag): Renamed + from `ptexinfmt-disable-broken-notice'. + 2000-10-27 TAKAHASHI Kaoru * lisp/ptexinfmt.el (texinfo-format-printindex): Mule for Windows diff --git a/lisp/ptexinfmt.el b/lisp/ptexinfmt.el index 711ccd5..7ec0c6e 100644 --- a/lisp/ptexinfmt.el +++ b/lisp/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 -- 1.7.10.4