893 |
'Man-target-string (match-string target-pos) |
'Man-target-string (match-string target-pos) |
894 |
))))) |
))))) |
895 |
|
|
896 |
(defun Man-cleanup-manpage () |
(defun Man-cleanup-manpage (&optional interactive) |
897 |
"Remove overstriking and underlining from the current buffer." |
"Remove overstriking and underlining from the current buffer. |
898 |
(interactive) |
Normally skip any jobs that should have been done by the sed script, |
899 |
|
but when called interactively, do those jobs even if the sed |
900 |
|
script would have done them." |
901 |
|
(interactive "p") |
902 |
(message "Please wait: cleaning up the %s man page..." |
(message "Please wait: cleaning up the %s man page..." |
903 |
Man-arguments) |
Man-arguments) |
904 |
(if (or (interactive-p) (not Man-sed-script)) |
(if (or interactive (not Man-sed-script)) |
905 |
(progn |
(progn |
906 |
(goto-char (point-min)) |
(goto-char (point-min)) |
907 |
(while (search-forward "_\b" nil t) (backward-delete-char 2)) |
(while (search-forward "_\b" nil t) (backward-delete-char 2)) |