# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 717998778 0
# Node ID 3a14fd87bade734ef94348ae855f18f7f02a9d8d
# Parent  28e8b21e8bbac38995b0a141f60236a2576cfbfd
(nuke-nroff-bs): Delete just 9 lines above header.

diff -r 28e8b21e8bba -r 3a14fd87bade lisp/=man.el
--- a/lisp/=man.el	Fri Oct 02 02:26:36 1992 +0000
+++ b/lisp/=man.el	Fri Oct 02 04:06:18 1992 +0000
@@ -111,7 +111,8 @@
       ;; Put START and END around footer and header and garbage blank lines.
       ;; Fixed line counts are risky, but allow us to preserve
       ;; significant blank lines.
-      (setq start (save-excursion (forward-line -10) (point)))
+      ;; These numbers are correct for MORE BSD, at least.
+      (setq start (save-excursion (forward-line -9) (point)))
       (setq end (save-excursion (forward-line 3) (point)))
       (delete-region start end)))
   ;; Catch the final footer.