# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1254616816 0
# Node ID 6ae619b44d7351f2026bd551d658a3fa4a54aef9
# Parent  c6cabc736460f7f8088dddcd6fc447dd57b66ac4
Martin Rudalics  <rudalics at gmx.at>

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

diff -r c6cabc736460 -r 6ae619b44d73 lisp/ChangeLog
--- 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.
diff -r c6cabc736460 -r 6ae619b44d73 lisp/window.el
--- 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