Mercurial > emacs
changeset 34418:6a8eb5041120
(window-text-height): Function removed (now in C).
author | Miles Bader <miles@gnu.org> |
---|---|
date | Mon, 11 Dec 2000 07:31:08 +0000 |
parents | fef41c786c7a |
children | b3abe4cdf5f4 |
files | lisp/window.el |
diffstat | 1 files changed, 0 insertions(+), 23 deletions(-) [+] |
line wrap: on
line diff
--- 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