mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-26 07:33:47 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Karl Heuer 1994-03-19 04:03:24 +00:00
parent de7d5cb6a7
commit 857a1de679
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lisp/help.el
View File

@ -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))))