procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(nuke-nroff-bs): Delete just 9 lines above header.

Browse source
This commit is contained in:
Richard M. Stallman 1992-10-02 04:06:18 +00:00
parent ca21f8b160
commit 79f3b0b773
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/man.el
View file

@ -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.