From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 26 Oct 2004 08:27:26 +0000 (+0000)
Subject: (Man-cleanup-manpage): Instead of interactive-p,
X-Git-Tag: ttn-vms-21-2-B4~4402
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1d3b75d82e7991c37013dad9fdd62723e4dc17c5;p=emacs.git

(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 cbfae21e44b..afd183fa720 100644
--- 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))