diff options
| author | Richard M. Stallman <rms@gnu.org> | 1992-10-02 04:06:18 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1992-10-02 04:06:18 +0000 |
| commit | 3aa7c7d809797436396098d801b11d677dbc3eed (patch) | |
| tree | 58a2408b3d139fe5a42835c39631adf93862bc16 /lisp/=man.el | |
| parent | 864932663512c01e994a100eca4951359725824d (diff) | |
| download | emacs-3aa7c7d809797436396098d801b11d677dbc3eed.tar.gz | |
(nuke-nroff-bs): Delete just 9 lines above header.
Diffstat (limited to 'lisp/=man.el')
| -rw-r--r-- | lisp/=man.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/=man.el b/lisp/=man.el index 7d8dc39dfeb..1f367fc7a6e 100644 --- a/lisp/=man.el +++ b/lisp/=man.el @@ -111,7 +111,8 @@ where SECTION is the desired section of the manual, as in \"tty(4)\"." ;; 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. |