Martin Rudalics <rudalics at gmx.at>

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

lisp/ChangeLog

+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.

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