(help-with-tutorial): Avoid unexplained large blank area.

diff --git a/lisp/help.el b/lisp/help.el
index 08f18eec74d0c53f2091b6ef5ea75a26cfa8a3ea..9592b0ab8896b0be6a7a2fa9a95a837c90a061f0 100644 (file)
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -93,9 +93,16 @@
       (search-forward "\n<<")
       (beginning-of-line)
       (delete-region (point) (progn (end-of-line) (point)))
-      (newline (- (window-height (selected-window))
+      (let ((n (- (window-height (selected-window))
                  (count-lines (point-min) (point))
-                 6))
+                 6)))
+       (if (< n 20)
+           (newline n)
+         ;; Some people get confused by the large gap.
+         (newline (/ n 2))
+         (insert "[Middle of page left blank for didactic purposes.  "
+                 "Text continues below]")
+         (newline (- n (/ n 2)))))
       (goto-char (point-min))
       (set-buffer-modified-p nil))))