diff options
| author | Glenn Morris <rgm@gnu.org> | 2009-10-04 00:40:16 +0000 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2009-10-04 00:40:16 +0000 |
| commit | 02c6f0980b50c46eef5156062849c3630fec230d (patch) | |
| tree | 582afa444c1694fa952408605ced1b09cc7a506f /lisp/window.el | |
| parent | 68972a4f8fa503d942d0a2a40e11893dfc694c8c (diff) | |
| download | emacs-02c6f0980b50c46eef5156062849c3630fec230d.tar.gz emacs-02c6f0980b50c46eef5156062849c3630fec230d.tar.bz2 emacs-02c6f0980b50c46eef5156062849c3630fec230d.zip | |
Martin Rudalics <rudalics at gmx.at>
(window-full-height-p): New function. (Bug#4543)
Diffstat (limited to 'lisp/window.el')
| -rw-r--r-- | lisp/window.el | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/lisp/window.el b/lisp/window.el index a4931d446a1..9339247bfa8 100644 --- a/lisp/window.el +++ b/lisp/window.el @@ -87,6 +87,12 @@ return value, use `window-text-height' instead." (if mode-line-format 1 0) (if header-line-format 1 0)))))) +(defun window-full-height-p (&optional window) + (unless window + (setq window (selected-window))) + (= (window-height window) + (window-height (frame-root-window (window-frame window))))) + (defun one-window-p (&optional nomini all-frames) "Return non-nil if the selected window is the only window. Optional arg NOMINI non-nil means don't count the minibuffer |