Commit 5937a3fd authored by Stefan Monnier's avatar Stefan Monnier
Browse files

(set-window-text-height): Only set window-min-height to

1 if that's the requested size.
parent e78cf8e5
...@@ -532,7 +532,11 @@ the height exactly, but attempts to be conservative, by allocating more ...@@ -532,7 +532,11 @@ 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." lines than are actually needed in the case where some error may be present."
(let ((delta (- height (window-text-height window)))) (let ((delta (- height (window-text-height window))))
(unless (zerop delta) (unless (zerop delta)
(let ((window-min-height 1)) ;; Setting window-min-height to a value like 1 can lead to very
;; bizarre displays because it also allows Emacs to make *other*
;; windows 1-line tall, which means that there's no more space for
;; the modeline.
(let ((window-min-height (min 2 height))) ;One text line plus a modeline.
(if (and window (not (eq window (selected-window)))) (if (and window (not (eq window (selected-window))))
(save-selected-window (save-selected-window
(select-window window) (select-window window)
......
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