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

(window-body-height): New function.

Browse Source
This commit is contained in:
Richard M. Stallman 2002-01-18 05:42:23 +00:00
parent daf516d34f
commit e58bff5990
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/window.el
View File

@ -29,6 +29,15 @@
;;; Code:
(defun window-body-height (&optional window)
"Return number of lines in window WINDOW for actual buffer text.
This does not include the mode line (if any) or the header line (if any)."
(or window (setq window (selected-window)))
(with-current-buffer (window-buffer window)
(- (window-height window)
(if mode-line-format 1 0)
(if header-line-format 1 0))))
(defun one-window-p (&optional nomini all-frames)
"Return non-nil if the selected window is the only window (in its frame).
Optional arg NOMINI non-nil means don't count the minibuffer