/[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.125.2.3 by miles, Tue Jun 29 16:45:03 2004 UTC revision 1.125.2.4 by miles, Wed Oct 27 05:42:00 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.125.2.3  
changed lines
  Added in v.1.125.2.4

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