From: Miles Bader <miles@gnu.org>
Date: Tue, 17 Oct 2000 11:08:03 +0000 (+0000)
Subject: (resize-temp-buffer-window): Add hack to avoid last line
X-Git-Tag: emacs-pretest-21.0.90~812
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=61dfccfd5d8d89e628b7fd953dea717a01f70b1c;p=emacs.git

(resize-temp-buffer-window): Add hack to avoid last line
being obscured by whizzy mode-lines on graphical displays.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e7e0fac31ef..1da01327664 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2000-10-17  Miles Bader  <miles@gnu.org>
+
+	* help.el (resize-temp-buffer-window): Add hack to avoid last line
+	being obscured by whizzy mode-lines on graphics displays.
+
 2000-10-17  Eli Zaretskii  <eliz@is.elta.co.il>
 
 	* info.el (Info-title-1-face, Info-title-2-face)
diff --git a/lisp/help.el b/lisp/help.el
index d8225a835f5..2f84ce1cf1f 100644
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -1470,6 +1470,11 @@ out of view."
            (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).