# HG changeset patch
# User Miles Bader <miles@gnu.org>
# Date 972188294 0
# Node ID 2f62b75a643d4a0051d44a64f3c9e55de9a2afb2
# Parent  602b32e7377711e5b06c156d0a8549f541579f61
(window-text-height): Don't expect minibuffers to have mode-lines.

diff -r 602b32e73777 -r 2f62b75a643d lisp/window.el
--- a/lisp/window.el	Sat Oct 21 22:29:38 2000 +0000
+++ b/lisp/window.el	Sun Oct 22 04:18:14 2000 +0000
@@ -338,7 +338,8 @@
 value cannot be determined."
   (with-current-buffer (window-buffer window)
     (- (window-height window)
-       (if mode-line-format
+       (if (and (not (window-minibuffer-p window))
+		mode-line-format)
 	   (1+ (mode-line-window-height-fudge))
 	 0)
        (if header-line-format