From: Glenn Morris <rgm@gnu.org>
Date: Sun, 4 Oct 2009 00:40:16 +0000 (+0000)
Subject: Martin Rudalics  <rudalics at gmx.at>
X-Git-Tag: emacs-pretest-23.1.90~961
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=02c6f0980b50c46eef5156062849c3630fec230d;p=emacs.git

Martin Rudalics  <rudalics at gmx.at>

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

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