[Emacs-diffs] emacs/lisp ChangeLog window.el

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       09/10/04 00:40:22

Modified files:
        lisp           : ChangeLog window.el 

Log message:
        Martin Rudalics  <rudalics at gmx.at>
        
        (window-full-height-p): New function.  (Bug#4543)

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16340&r2=1.16341
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/window.el?cvsroot=emacs&r1=1.181&r2=1.182

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16340
retrieving revision 1.16341
diff -u -b -r1.16340 -r1.16341
--- ChangeLog   3 Oct 2009 20:40:21 -0000       1.16340
+++ ChangeLog   4 Oct 2009 00:40:16 -0000       1.16341
@@ -1,3 +1,7 @@
+2009-10-04  Martin Rudalics  <address@hidden>
+
+       * window.el (window-full-height-p): New function.  (Bug#4543)
+
 2009-10-03  Chong Yidong  <address@hidden>
 
        * cedet/srecode/insert.el: Require srecode/args.

Index: window.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/window.el,v
retrieving revision 1.181
retrieving revision 1.182
diff -u -b -r1.181 -r1.182
--- window.el   26 Aug 2009 03:07:26 -0000      1.181
+++ window.el   4 Oct 2009 00:40:21 -0000       1.182
@@ -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