Mercurial > emacs
changeset 57699:f633084f70ae
(Man-cleanup-manpage): Instead of interactive-p,
use an arg set non-nil by the interactive spec.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 26 Oct 2004 08:27:26 +0000 |
| parents | 5e84f3fe94f0 |
| children | 0fcbc2db3d03 |
| files | lisp/man.el |
| diffstat | 1 files changed, 7 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- 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))