Mercurial > emacs
changeset 71557:695dbebf4c20
(set-window-text-height): Only set window-min-height to
1 if that's the requested size.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Sun, 02 Jul 2006 14:32:52 +0000 |
| parents | 31835ba46d29 |
| children | 4252d6e24270 |
| files | lisp/window.el |
| diffstat | 1 files changed, 5 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/window.el Sun Jul 02 14:29:28 2006 +0000 +++ b/lisp/window.el Sun Jul 02 14:32:52 2006 +0000 @@ -532,7 +532,11 @@ lines than are actually needed in the case where some error may be present." (let ((delta (- height (window-text-height window)))) (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)))) (save-selected-window (select-window window)