Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
857a1de6
Commit
857a1de6
authored
Mar 19, 1994
by
Karl Heuer
Browse files
(help-with-tutorial): Avoid unexplained large blank area.
parent
de7d5cb6
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
9 additions
and
2 deletions
+9
-2
lisp/help.el
lisp/help.el
+9
-2
No files found.
lisp/help.el
View file @
857a1de6
...
...
@@ -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
))))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment