From a4c22453ea45ad39fab386c6b726423c399be45f Mon Sep 17 00:00:00 2001 From: Miles Bader Date: Mon, 11 Dec 2000 07:31:08 +0000 Subject: [PATCH] (window-text-height): Function removed (now in C). --- lisp/window.el | 23 ----------------------- 1 file changed, 23 deletions(-) diff --git a/lisp/window.el b/lisp/window.el index 58f6f545e19..5d8c9a905cb 100644 --- a/lisp/window.el +++ b/lisp/window.el @@ -335,29 +335,6 @@ This is a kluge." 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 -- 2.39.5