# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1098779246 0
# Node ID f633084f70ae98835157d06e32fd0696ecfaf480
# Parent  5e84f3fe94f08b218632a53bde15256919af5a1a
(Man-cleanup-manpage): Instead of interactive-p,
use an arg set non-nil by the interactive spec.

diff -r 5e84f3fe94f0 -r f633084f70ae lisp/man.el
--- a/lisp/man.el	Mon Oct 25 20:35:24 2004 +0000
+++ b/lisp/man.el	Tue Oct 26 08:27:26 2004 +0000
@@ -893,12 +893,15 @@
 	 'Man-target-string (match-string target-pos)
 	 )))))
 
-(defun Man-cleanup-manpage ()
-  "Remove overstriking and underlining from the current buffer."
-  (interactive)
+(defun Man-cleanup-manpage (&optional interactive)
+  "Remove overstriking and underlining from the current buffer.
+Normally skip any jobs that should have been done by the sed script,
+but when called interactively, do those jobs even if the sed
+script would have done them."
+  (interactive "p")
   (message "Please wait: cleaning up the %s man page..."
 	   Man-arguments)
-  (if (or (interactive-p) (not Man-sed-script))
+  (if (or interactive (not Man-sed-script))
       (progn
 	(goto-char (point-min))
 	(while (search-forward "_\b" nil t) (backward-delete-char 2))