# HG changeset patch
# User Martin Rudalics <rudalics@gmx.at>
# Date 1186552296 0
# Node ID 7819402a99636e388c603c475f1b66e5c2043b08
# Parent  ad7b04a38ce44697e8747fe7f2ca2d3edbde5f46
Use window-full-width-p instead of comparing frame-width and
window-width.

diff -r ad7b04a38ce4 -r 7819402a9963 lisp/calendar/calendar.el
--- a/lisp/calendar/calendar.el	Wed Aug 08 05:49:21 2007 +0000
+++ b/lisp/calendar/calendar.el	Wed Aug 08 05:51:36 2007 +0000
@@ -2078,7 +2078,7 @@
     ;; Don't do any window-related stuff if we weren't called from a
     ;; window displaying the calendar
     (when in-calendar-window
-      (if (or (one-window-p t) (/= (frame-width) (window-width)))
+      (if (or (one-window-p t) (not (window-full-width-p)))
           ;; Don't mess with the window size, but ensure that the first
           ;; line is fully visible
           (set-window-vscroll nil 0)