Martin Rudalics <rudalics at gmx.at>

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2bddb5f6da23bb7d240c15374ae363bfbb2ca55b..441fd7d47ec5d4fa7750d20962b04ae2ed619439 100644 (file)
--- 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 a4931d446a1dd07203bcf6b52e92014be6961c15..9339247bfa82578a224e489ef5e040526e8803df 100644 (file)
--- 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