# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 717985934 0
# Node ID 4d95503773641791be6b36522e918f7e2b1e78d1
# Parent  a9241dc503abadfdab1bad090e1b640aa30fba98
(nuke-nroff-bs): Was nuking one line too many after header.

diff -r a9241dc503ab -r 4d9550377364 lisp/=man.el
--- a/lisp/=man.el	Thu Oct 01 23:07:09 1992 +0000
+++ b/lisp/=man.el	Fri Oct 02 00:32:14 1992 +0000
@@ -112,7 +112,7 @@
       ;; Fixed line counts are risky, but allow us to preserve
       ;; significant blank lines.
       (setq start (save-excursion (forward-line -10) (point)))
-      (setq end (save-excursion (forward-line 4) (point)))
+      (setq end (save-excursion (forward-line 3) (point)))
       (delete-region start end)))
   ;; Catch the final footer.
   (goto-char (point-max))