mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-31 11:13:50 +00:00
Code Issues Releases Activity

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

Browse Source 
use an arg set non-nil by the interactive spec.
This commit is contained in:
Richard M. Stallman 2004-10-26 08:27:26 +00:00
parent b119fdd59d
commit 1d3b75d82e
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lisp/man.el
View File

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