From: Pavel Janík <Pavel@Janik.cz>
Date: Tue, 25 Dec 2001 11:01:47 +0000 (+0000)
Subject: (emerge-show-file-name): Use frame-height instead of obsolete
X-Git-Tag: ttn-vms-21-2-B4~17491
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=19d62fda544722a522318bc61e1cdf1785e899df;p=emacs.git

(emerge-show-file-name): Use frame-height instead of obsolete
screen-height.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a65b9e444be..7a46f4ea292 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2001-12-25  Pavel Jan,Bm(Bk  <Pavel@Janik.cz>
+
+	* emerge.el (emerge-show-file-name): Use frame-height instead of
+	obsolete screen-height.
+
 2001-12-25  Richard M. Stallman  <rms@gnu.org>
 
 	* window.el (balance-windows): Use new PRESERVE-BEFORE arg
diff --git a/lisp/emerge.el b/lisp/emerge.el
index 68e857ff245..e08e566ee2a 100644
--- a/lisp/emerge.el
+++ b/lisp/emerge.el
@@ -3115,7 +3115,7 @@ SPC, it is ignored; if it is anything else, it is processed as a command."
       (if (not (pos-visible-in-window-p))
 	  (let ((echo-keystrokes 0))
 	    (while (and (not (pos-visible-in-window-p))
-			(> (1- (screen-height)) (window-height)))
+			(> (1- (frame-height)) (window-height)))
 	      (enlarge-window 1))
 	    (let ((c (read-event)))
 	      (if (not (eq c 32))