]> git.eshelyaron.com Git - emacs.git/commitdiff
(window-text-height): Function removed (now in C).
authorMiles Bader <miles@gnu.org>
Mon, 11 Dec 2000 07:31:08 +0000 (07:31 +0000)
committerMiles Bader <miles@gnu.org>
Mon, 11 Dec 2000 07:31:08 +0000 (07:31 +0000)
lisp/window.el

index 58f6f545e1939cd4d79ca4ba2ed02a9fc3b6fb9a..5d8c9a905cb012f6e3116956b61fa5caef5d70a1 100644 (file)
@@ -335,29 +335,6 @@ This is a kluge."
     0))
 
 \f
-;;; 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