(texinfo-format-scan): Silence `whitespace-cleanup'.

diff --git a/lisp/textmodes/texinfmt.el b/lisp/textmodes/texinfmt.el
index d9ec000f7d088d8042ba7092cdcdbef4649232a6..59adecc2ed1c18567693ad14ea416f7ea71b9737 100644 (file)
--- a/lisp/textmodes/texinfmt.el
+++ b/lisp/textmodes/texinfmt.el
@@ -935,7 +935,8 @@ lower types.")
          (error "Unterminated @%s" (car (car texinfo-stack)))))
 
   ;; Remove excess whitespace
-  (whitespace-cleanup))
+  (let ((whitespace-silent t))
+    (whitespace-cleanup)))
 
 (defvar texinfo-copying-text ""
   "Text of the copyright notice and copying permissions.")