Mercurial > emacs
changeset 105415:6ae619b44d73
Martin Rudalics <rudalics at gmx.at>
(window-full-height-p): New function. (Bug#4543)
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Sun, 04 Oct 2009 00:40:16 +0000 |
| parents | c6cabc736460 |
| children | cb0fd5493ae6 |
| files | lisp/ChangeLog lisp/window.el |
| diffstat | 2 files changed, 10 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Sun Oct 04 00:01:24 2009 +0000 +++ b/lisp/ChangeLog Sun Oct 04 00:40:16 2009 +0000 @@ -1,3 +1,7 @@ +2009-10-04 Martin Rudalics <rudalics@gmx.at> + + * window.el (window-full-height-p): New function. (Bug#4543) + 2009-10-03 Chong Yidong <cyd@stupidchicken.com> * cedet/srecode/insert.el: Require srecode/args.
--- a/lisp/window.el Sun Oct 04 00:01:24 2009 +0000 +++ b/lisp/window.el Sun Oct 04 00:40:16 2009 +0000 @@ -87,6 +87,12 @@ (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