diff options
| author | Richard M. Stallman | 1992-10-02 04:06:18 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1992-10-02 04:06:18 +0000 |
| commit | 79f3b0b7737466057a9f2e34e550b8bc5bbad18e (patch) | |
| tree | ce85c6e5c7bf92408906644ec30e95ad4e28947c | |
| parent | ca21f8b160f44131b959fde3628b655e29deffad (diff) | |
| download | emacs-79f3b0b7737466057a9f2e34e550b8bc5bbad18e.tar.gz emacs-79f3b0b7737466057a9f2e34e550b8bc5bbad18e.zip | |
(nuke-nroff-bs): Delete just 9 lines above header.
| -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)\"." | |||
| 111 | ;; Put START and END around footer and header and garbage blank lines. | 111 | ;; Put START and END around footer and header and garbage blank lines. |
| 112 | ;; Fixed line counts are risky, but allow us to preserve | 112 | ;; Fixed line counts are risky, but allow us to preserve |
| 113 | ;; significant blank lines. | 113 | ;; significant blank lines. |
| 114 | (setq start (save-excursion (forward-line -10) (point))) | 114 | ;; These numbers are correct for MORE BSD, at least. |
| 115 | (setq start (save-excursion (forward-line -9) (point))) | ||
| 115 | (setq end (save-excursion (forward-line 3) (point))) | 116 | (setq end (save-excursion (forward-line 3) (point))) |
| 116 | (delete-region start end))) | 117 | (delete-region start end))) |
| 117 | ;; Catch the final footer. | 118 | ;; Catch the final footer. |