# HG changeset patch
# User Andreas Schwab <schwab@suse.de>
# Date 919247521 0
# Node ID d9aef2d7c50396fe57f3118ee10a8527ea78045a
# Parent  3c68ad53545e7880936058fa5b5f34f11278bf99
(scroll-calendar-left): Don't set
displayed-month and displayed-year here, let generate-calendar do
it, after range checking.

diff -r 3c68ad53545e -r d9aef2d7c503 lisp/calendar/cal-move.el
--- a/lisp/calendar/cal-move.el	Wed Feb 17 10:06:41 1999 +0000
+++ b/lisp/calendar/cal-move.el	Wed Feb 17 10:32:01 1999 +0000
@@ -93,14 +93,15 @@
   (let ((old-date (calendar-cursor-to-date))
         (today (calendar-current-date)))
     (if (/= arg 0)
-        (progn
-          (increment-calendar-month displayed-month displayed-year arg)
-          (generate-calendar-window displayed-month displayed-year)
+        (let ((month displayed-month)
+	      (year displayed-year))
+          (increment-calendar-month month year arg)
+	  (generate-calendar-window month year)
           (calendar-cursor-to-visible-date
            (cond
             ((calendar-date-is-visible-p old-date) old-date)
             ((calendar-date-is-visible-p today) today)
-            (t (list displayed-month 1 displayed-year))))))))
+            (t (list month 1 year))))))))
 
 (defun scroll-calendar-right (arg)
   "Scroll the displayed calendar window right by ARG months.