mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-26 07:33:47 +00:00
Code Issues Releases Activity

(window-text-height): Function removed (now in C).

Browse Source
This commit is contained in:
Miles Bader 2000-12-11 07:31:08 +00:00
parent d80aeee83d
commit a4c22453ea
1 changed files with 0 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
lisp/window.el
View File

@ -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