Mercurial > emacs

diff lisp/calendar/calendar.el @ 105478:e3187820f169

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Use window-full-height-p.
author Glenn Morris <rgm@gnu.org>
date Tue, 06 Oct 2009 02:42:29 +0000
parents 7e96a7ac3ac0
children bc225649d1e5
line wrap: on
line diff
--- a/lisp/calendar/calendar.el	Tue Oct 06 02:37:22 2009 +0000
+++ b/lisp/calendar/calendar.el	Tue Oct 06 02:42:29 2009 +0000
@@ -1320,9 +1320,9 @@
       ;; Is this a wide frame?  If so, split it horizontally.
       (if (window-splittable-p t) (split-window-horizontally))
       (pop-to-buffer calendar-buffer)
-      ;; Has the window already been split vertically?  (See bug#4543)
+      ;; Has the window already been split vertically?
       (when (and (not (window-dedicated-p))
-                 (= (window-height) (window-height (frame-root-window))))
+                 (window-full-height-p))
         (let ((win (split-window-vertically)))
           ;; Show something else in the upper window.
           (switch-to-buffer (other-buffer))