From 857a1de679fe4d4eaa5fe657a936a494ba68ba62 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Sat, 19 Mar 1994 04:03:24 +0000 Subject: [PATCH] (help-with-tutorial): Avoid unexplained large blank area. --- lisp/help.el | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) diff --git a/lisp/help.el b/lisp/help.el index 08f18eec74d..9592b0ab889 100644 --- 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)))) -- 2.39.5