/[emacs]/emacs/lisp/man.el
ViewVC logotype

Diff of /emacs/lisp/man.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.136 by eliz, Sat Jun 26 09:44:56 2004 UTC revision 1.137 by rms, Tue Oct 26 08:27:26 2004 UTC
# Line 893  header file(#include <foo.h>) and files Line 893  header file(#include <foo.h>) and files
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))

Legend:
Removed from v.1.136  
changed lines
  Added in v.1.137

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26