mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-14 16:50:58 +00:00
Code Issues Releases Activity

(set-window-text-height): Force window-min-height to 1.

Browse Source
This commit is contained in:
Miles Bader 2000-10-20 16:33:54 +00:00
parent 8094989ba2
commit 38f99c2720
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lisp/window.el
View File

@ -351,18 +351,18 @@ This doesn't include the mode-line (or header-line if any) or any
partial-height lines in the text display area.
If WINDOW is nil, the selected window is used.
If HEIGHT is less than `window-min-height', then WINDOW is deleted.
Note that the current implementation of this function cannot always set
the height exactly, but attempts to be conservative, by allocating more
lines than are actually needed in the case where some error may be present."
(let ((delta (- height (window-text-height window))))
(unless (zerop delta)
(if (and window (not (eq window (selected-window))))
(save-selected-window
(select-window window)
(enlarge-window delta))
(enlarge-window delta)))))
(let ((window-min-height 1))
(if (and window (not (eq window (selected-window))))
(save-selected-window
(select-window window)
(enlarge-window delta))
(enlarge-window delta))))))
(defun enlarge-window-horizontally (arg)