[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp ChangeLog window.el
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] emacs/lisp ChangeLog window.el |
Date: |
Sun, 04 Oct 2009 00:41:24 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Glenn Morris <gm> 09/10/04 00:41:23
Modified files:
lisp : ChangeLog window.el
Log message:
(window-full-height-p): Add doc string.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16341&r2=1.16342
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/window.el?cvsroot=emacs&r1=1.182&r2=1.183
Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16341
retrieving revision 1.16342
diff -u -b -r1.16341 -r1.16342
--- ChangeLog 4 Oct 2009 00:40:16 -0000 1.16341
+++ ChangeLog 4 Oct 2009 00:41:18 -0000 1.16342
@@ -1,3 +1,7 @@
+2009-10-04 Glenn Morris <address@hidden>
+
+ * window.el (window-full-height-p): Add doc string.
+
2009-10-04 Martin Rudalics <address@hidden>
* window.el (window-full-height-p): New function. (Bug#4543)
Index: window.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/window.el,v
retrieving revision 1.182
retrieving revision 1.183
diff -u -b -r1.182 -r1.183
--- window.el 4 Oct 2009 00:40:21 -0000 1.182
+++ window.el 4 Oct 2009 00:41:23 -0000 1.183
@@ -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)