(Man-cleanup-manpage): Instead of interactive-p,

use an arg set non-nil by the interactive spec.

diff --git a/lisp/man.el b/lisp/man.el
index cbfae21e44b117bbba5e00206d1b376603b20a53..afd183fa720f0a0ec88e97f171a3d2affb86a2d2 100644 (file)
--- a/lisp/man.el
+++ b/lisp/man.el
@@ -893,12 +893,15 @@ header file(#include <foo.h>) and files in FILES"
         '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))