Mercurial > emacs

changeset 6419:e5ce725b661d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(help-with-tutorial): Avoid unexplained large blank area.
author Karl Heuer <kwzh@gnu.org>
date Sat, 19 Mar 1994 04:03:24 +0000
parents 43dea22be493
children 09fadfc6384e
files lisp/help.el
diffstat 1 files changed, 9 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/help.el	Sat Mar 19 03:48:55 1994 +0000
+++ b/lisp/help.el	Sat Mar 19 04:03:24 1994 +0000
@@ -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))))