# HG changeset patch
# User Miles Bader <miles@gnu.org>
# Date 972033750 0
# Node ID e58e4340d7e07648117295a1c89317324f5958f9
# Parent  569ef1445e17a2a6cce3bf5669789b995420b3f7
(resize-temp-buffer-window): Use `mode-line-window-height-fudge'.

diff -r 569ef1445e17 -r e58e4340d7e0 lisp/help.el
--- a/lisp/help.el	Fri Oct 20 09:21:59 2000 +0000
+++ b/lisp/help.el	Fri Oct 20 09:22:30 2000 +0000
@@ -1466,15 +1466,12 @@
     (let* ((max-height (if (functionp temp-buffer-max-height)
                            (funcall temp-buffer-max-height (current-buffer))
                          temp-buffer-max-height))
-           (win-height (1- (window-height)))
+           (win-height (- (window-height)
+			  (mode-line-window-height-fudge)
+			  1))
            (min-height (1- window-min-height))
            (text-height (count-screen-lines))
            (new-height (max (min text-height max-height) min-height)))
-      (when (display-graphic-p)
-	;; This egregious hack is because mode-lines on graphics
-	;; displays often use faces that make them more than one `line'
-	;; high, and so obscure the last line of the window proper.
-	(setq win-height (1- win-height)))
       (enlarge-window (- new-height win-height)))))
 
 ;; `help-manyarg-func-alist' is defined primitively (in doc.c).