Commit 857a1de6 authored by Karl Heuer's avatar Karl Heuer
Browse files

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

parent de7d5cb6
...@@ -93,9 +93,16 @@ ...@@ -93,9 +93,16 @@
(search-forward "\n<<") (search-forward "\n<<")
(beginning-of-line) (beginning-of-line)
(delete-region (point) (progn (end-of-line) (point))) (delete-region (point) (progn (end-of-line) (point)))
(newline (- (window-height (selected-window)) (let ((n (- (window-height (selected-window))
(count-lines (point-min) (point)) (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)) (goto-char (point-min))
(set-buffer-modified-p nil)))) (set-buffer-modified-p nil))))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment