# HG changeset patch
# User Miles Bader <miles@gnu.org>
# Date 976519868 0
# Node ID 6a8eb50411207601aa5d730d1c9ce5f45b5d5527
# Parent  fef41c786c7ab881cf206b4d58149214ba5e14c1
(window-text-height): Function removed (now in C).

diff -r fef41c786c7a -r 6a8eb5041120 lisp/window.el
--- a/lisp/window.el	Mon Dec 11 07:28:51 2000 +0000
+++ b/lisp/window.el	Mon Dec 11 07:31:08 2000 +0000
@@ -335,29 +335,6 @@
     0))
 
 
-;;; These functions should eventually be replaced with versions that
-;;; really do the job (instead of using the kludgey mode-line face
-;;; hacking junk).
-
-(defun window-text-height (&optional window)
-  "Return the height in lines of the text display area of WINDOW.
-This doesn't include the mode-line (or header-line if any) or any
-partial-height lines in the text display area.
-
-Note that the current implementation of this function may sometimes
-return an inaccurate value, but attempts to be conservative, by
-returning fewer lines than actually exist in the case where the real
-value cannot be determined."
-  (with-current-buffer (window-buffer window)
-    (- (window-height window)
-       (if (and (not (window-minibuffer-p window))
-		mode-line-format)
-	   (1+ (mode-line-window-height-fudge))
-	 0)
-       (if header-line-format
-	   (1+ (mode-line-window-height-fudge 'header-line))
-	 0))))
-
 (defun set-window-text-height (window height)
   "Sets the height in lines of the text display area of WINDOW to HEIGHT.
 This doesn't include the mode-line (or header-line if any) or any