[Emacs-diffs] Changes to emacs/lisp/window.el

[Richard M. Stallman]

Index: emacs/lisp/window.el
diff -c emacs/lisp/window.el:1.80 emacs/lisp/window.el:1.81
*** emacs/lisp/window.el:1.80   Tue Dec 25 05:34:39 2001
--- emacs/lisp/window.el        Fri Jan 18 00:42:23 2002
***************
*** 29,34 ****
--- 29,43 ----
  
  ;;; 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