[Emacs-diffs] Changes to emacs/lisp/man.el

[Richard M . Stallman]

Index: emacs/lisp/man.el
diff -c emacs/lisp/man.el:1.136 emacs/lisp/man.el:1.137
*** emacs/lisp/man.el:1.136     Sat Jun 26 09:44:56 2004
--- emacs/lisp/man.el   Tue Oct 26 08:27:26 2004
***************
*** 893,904 ****
         'Man-target-string (match-string target-pos)
         )))))
  
! (defun Man-cleanup-manpage ()
!   "Remove overstriking and underlining from the current buffer."
!   (interactive)
    (message "Please wait: cleaning up the %s man page..."
           Man-arguments)
!   (if (or (interactive-p) (not Man-sed-script))
        (progn
        (goto-char (point-min))
        (while (search-forward "_\b" nil t) (backward-delete-char 2))
--- 893,907 ----
         'Man-target-string (match-string target-pos)
         )))))
  
! (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 (not Man-sed-script))
        (progn
        (goto-char (point-min))
        (while (search-forward "_\b" nil t) (backward-delete-char 2))