Mercurial > emacs
comparison lisp/man.el @ 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 | 060e08bf63fe |
children | 78ec31c498b7 0fe073a08cef |
comparison
equal
deleted
inserted
replaced
57698:5e84f3fe94f0 | 57699:f633084f70ae |
---|---|
891 (match-end button-pos) | 891 (match-end button-pos) |
892 'type type | 892 'type type |
893 'Man-target-string (match-string target-pos) | 893 'Man-target-string (match-string target-pos) |
894 ))))) | 894 ))))) |
895 | 895 |
896 (defun Man-cleanup-manpage () | 896 (defun Man-cleanup-manpage (&optional interactive) |
897 "Remove overstriking and underlining from the current buffer." | 897 "Remove overstriking and underlining from the current buffer. |
898 (interactive) | 898 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") | |
899 (message "Please wait: cleaning up the %s man page..." | 902 (message "Please wait: cleaning up the %s man page..." |
900 Man-arguments) | 903 Man-arguments) |
901 (if (or (interactive-p) (not Man-sed-script)) | 904 (if (or interactive (not Man-sed-script)) |
902 (progn | 905 (progn |
903 (goto-char (point-min)) | 906 (goto-char (point-min)) |
904 (while (search-forward "_\b" nil t) (backward-delete-char 2)) | 907 (while (search-forward "_\b" nil t) (backward-delete-char 2)) |
905 (goto-char (point-min)) | 908 (goto-char (point-min)) |
906 (while (search-forward "\b_" nil t) (backward-delete-char 2)) | 909 (while (search-forward "\b_" nil t) (backward-delete-char 2)) |