diff options
| author | Richard M. Stallman <[email protected]> | 2004-10-26 08:27:26 +0000 |
|---|---|---|
| committer | Richard M. Stallman <[email protected]> | 2004-10-26 08:27:26 +0000 |
| commit | 1d3b75d82e7991c37013dad9fdd62723e4dc17c5 (patch) | |
| tree | 84afa36a9510de7a0cce7c963040e55100adaafd | |
| parent | b119fdd59d7b97df5ce02a89b0d4e5205b02058e (diff) | |
(Man-cleanup-manpage): Instead of interactive-p,
use an arg set non-nil by the interactive spec.
| -rw-r--r-- | lisp/man.el | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/lisp/man.el b/lisp/man.el index cbfae21e44..afd183fa72 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)) |