diff options
| -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. |