silence whitespace-cleanup

[Katsumi Yamaoka]

Hi,

I request to silence the whitespace-cleanup function when the
texinfo-format-scan function is performed.  We have only the way
to use the texinfmt.el module to make Japanese info pages.
However, it is too loud to find important problems.  For
instance:

Formatting: The Gnus Newsreader ... 
/Work/gnus/texi/gnus clean
/Work/gnus/texi/gnus clean
/Work/gnus/texi/gnus clean
/Work/gnus/texi/gnus clean
/Work/gnus/texi/gnus clean
/Work/gnus/texi/gnus clean
/Work/gnus/texi/gnus clean
[...]

Here is a patch:

*** lisp/whitespace.el~ Tue May 13 22:38:43 2003
--- lisp/whitespace.el  Wed Jun 11 02:06:37 2003
***************
*** 517,523 ****
        (whitespace-buffer))))
  
  ;;;###autoload
! (defun whitespace-cleanup ()
    "Cleanup the five different kinds of whitespace problems.
  
  Use \\[describe-function] whitespace-describe to read a summary of the
--- 517,523 ----
        (whitespace-buffer))))
  
  ;;;###autoload
! (defun whitespace-cleanup (&optional quiet)
    "Cleanup the five different kinds of whitespace problems.
  
  Use \\[describe-function] whitespace-describe to read a summary of the
***************
*** 568,574 ****
        (if whitespace-any
            (whitespace-cleanup)
          (progn
!           (message "%s clean" buffer-file-name)
            (whitespace-update-modeline)))
        (setq tab-width whitespace-tabwith-saved))))
  
--- 568,575 ----
        (if whitespace-any
            (whitespace-cleanup)
          (progn
!           (if (not quiet)
!               (message "%s clean" buffer-file-name))
            (whitespace-update-modeline)))
        (setq tab-width whitespace-tabwith-saved))))
  
*** lisp/textmodes/texinfmt.el~ Tue Feb 11 22:13:39 2003
--- lisp/textmodes/texinfmt.el  Wed Jun 11 02:06:37 2003
***************
*** 935,941 ****
           (error "Unterminated @%s" (car (car texinfo-stack)))))
  
    ;; Remove excess whitespace
!   (whitespace-cleanup))
  
  (defvar texinfo-copying-text ""
    "Text of the copyright notice and copying permissions.")
--- 935,941 ----
           (error "Unterminated @%s" (car (car texinfo-stack)))))
  
    ;; Remove excess whitespace
!   (whitespace-cleanup t))
  
  (defvar texinfo-copying-text ""
    "Text of the copyright notice and copying permissions.")