aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorGlenn Morris2009-10-04 00:41:18 +0000
committerGlenn Morris2009-10-04 00:41:18 +0000
commitccafbf06960081e598e17174ab43e29a5e6b4019 (patch)
tree0b2b5a02be59ad757f77c8704924b7dffb600810
parent02c6f0980b50c46eef5156062849c3630fec230d (diff)
downloademacs-ccafbf06960081e598e17174ab43e29a5e6b4019.tar.gz
emacs-ccafbf06960081e598e17174ab43e29a5e6b4019.zip
(window-full-height-p): Add doc string.
-rw-r--r--lisp/ChangeLog4
-rw-r--r--lisp/window.el4
2 files changed, 8 insertions, 0 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 441fd7d47ec..eeb3770db6b 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
12009-10-04 Glenn Morris <rgm@gnu.org>
2
3 * window.el (window-full-height-p): Add doc string.
4
12009-10-04 Martin Rudalics <rudalics@gmx.at> 52009-10-04 Martin Rudalics <rudalics@gmx.at>
2 6
3 * window.el (window-full-height-p): New function. (Bug#4543) 7 * window.el (window-full-height-p): New function. (Bug#4543)
diff --git a/lisp/window.el b/lisp/window.el
index 9339247bfa8..c4dc973f94f 100644
--- a/lisp/window.el
+++ b/lisp/window.el
@@ -87,7 +87,11 @@ return value, use `window-text-height' instead."
87 (if mode-line-format 1 0) 87 (if mode-line-format 1 0)
88 (if header-line-format 1 0)))))) 88 (if header-line-format 1 0))))))
89 89
90;; See discussion in bug#4543.
90(defun window-full-height-p (&optional window) 91(defun window-full-height-p (&optional window)
92 "Return non-nil if WINDOW is not the result of a vertical split.
93WINDOW defaults to the selected window. (This function is not
94appropriate for minibuffers.)"
91 (unless window 95 (unless window
92 (setq window (selected-window))) 96 (setq window (selected-window)))
93 (= (window-height window) 97 (= (window-height window)