diff lisp/man.el @ 57699:f633084f70ae

(Man-cleanup-manpage): Instead of interactive-p, use an arg set non-nil by the interactive spec.

--- 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))