# HG changeset patch # User Glenn Morris # Date 1254616878 0 # Node ID cb0fd5493ae648d2812924483a9b19cc49ce56d9 # Parent 6ae619b44d7351f2026bd551d658a3fa4a54aef9 (window-full-height-p): Add doc string. diff -r 6ae619b44d73 -r cb0fd5493ae6 lisp/ChangeLog --- a/lisp/ChangeLog Sun Oct 04 00:40:16 2009 +0000 +++ b/lisp/ChangeLog Sun Oct 04 00:41:18 2009 +0000 @@ -1,3 +1,7 @@ +2009-10-04 Glenn Morris + + * window.el (window-full-height-p): Add doc string. + 2009-10-04 Martin Rudalics * window.el (window-full-height-p): New function. (Bug#4543) diff -r 6ae619b44d73 -r cb0fd5493ae6 lisp/window.el --- a/lisp/window.el Sun Oct 04 00:40:16 2009 +0000 +++ b/lisp/window.el Sun Oct 04 00:41:18 2009 +0000 @@ -87,7 +87,11 @@ (if mode-line-format 1 0) (if header-line-format 1 0)))))) +;; See discussion in bug#4543. (defun window-full-height-p (&optional window) + "Return non-nil if WINDOW is not the result of a vertical split. +WINDOW defaults to the selected window. (This function is not +appropriate for minibuffers.)" (unless window (setq window (selected-window))) (= (window-height window)