/[emacs]/emacs/lisp/window.el
ViewVC logotype

Diff of /emacs/lisp/window.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.81 by rms, Fri Jan 18 05:42:23 2002 UTC revision 1.82 by rms, Mon Jan 21 08:55:32 2002 UTC
# Line 33  Line 33 
33    "Return number of lines in window WINDOW for actual buffer text.    "Return number of lines in window WINDOW for actual buffer text.
34  This does not include the mode line (if any) or the header line (if any)."  This does not include the mode line (if any) or the header line (if any)."
35    (or window (setq window (selected-window)))    (or window (setq window (selected-window)))
36    (with-current-buffer (window-buffer window)    (if (window-minibuffer-p window)
37      (- (window-height window)        (window-height window)
38         (if mode-line-format 1 0)      (with-current-buffer (window-buffer window)
39         (if header-line-format 1 0))))        (max 1 (- (window-height window)
40                    (if mode-line-format 1 0)
41                    (if header-line-format 1 0))))))
42    
43  (defun one-window-p (&optional nomini all-frames)  (defun one-window-p (&optional nomini all-frames)
44    "Return non-nil if the selected window is the only window (in its frame).    "Return non-nil if the selected window is the only window (in its frame).

Legend:
Removed from v.1.81  
changed lines
  Added in v.1.82

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26