Martin Rudalics <rudalics at gmx.at>

(window-full-height-p): New function.  (Bug#4543)

2 files changed, 10 insertions, 0 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2bddb5f6da2..441fd7d47ec 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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.
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