X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/9750e079ddb0df24810a8a19a3210616d3f71db9..3d24868836b773b9a698eb1f34e3903462f14843:/lisp/man.el

diff --git a/lisp/man.el b/lisp/man.el
index 5a7423e82f..6461f3f244 100644
--- a/lisp/man.el
+++ b/lisp/man.el
@@ -21,6 +21,11 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Commentary:
+
+;; This package provides an equivalent of the UNIX man(1) command within
+;; Emacs.  The single entry point is `manual-entry'.
+
 ;;; Code:
 
 ;;;###autoload
@@ -111,8 +116,9 @@ 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)))
-      (setq end (save-excursion (forward-line 4) (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.
   (goto-char (point-max))