From 9df6e63856819419f55926833c93231aa24ec8d3 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 21 Jan 2002 08:55:32 +0000 Subject: [PATCH] (window-body-height): Handle minibuffer window specially. Otherwise, don't return less than 1. --- lisp/window.el | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/lisp/window.el b/lisp/window.el index 99b71dba77c..02b3fa1ffe3 100644 --- a/lisp/window.el +++ b/lisp/window.el @@ -33,10 +33,12 @@ "Return number of lines in window WINDOW for actual buffer text. This does not include the mode line (if any) or the header line (if any)." (or window (setq window (selected-window))) - (with-current-buffer (window-buffer window) - (- (window-height window) - (if mode-line-format 1 0) - (if header-line-format 1 0)))) + (if (window-minibuffer-p window) + (window-height window) + (with-current-buffer (window-buffer window) + (max 1 (- (window-height window) + (if mode-line-format 1 0) + (if header-line-format 1 0)))))) (defun one-window-p (&optional nomini all-frames) "Return non-nil if the selected window is the only window (in its frame). -- 2.39.2