(calendar-forward-day): Fix 2008-06-21 change -

always move cursor to new date.  (Bug#3338)

lisp/ChangeLog

+2009-05-21  Glenn Morris  <rgm@gnu.org>
+
+	* calendar/cal-move.el (calendar-forward-day): Fix 2008-06-21 change -
+	always move cursor to new date.  (Bug#3338)
+
 2009-05-20  Stefan Monnier  <monnier@iro.umontreal.ca>
 	* textmodes/tex-mode.el (tex-uptodate-p): Accept [1{/var/foo}] as

lisp/calendar/cal-move.el

@@ -230,14 +230,15 @@ Moves backward if ARG is negative."
              (+ (calendar-absolute-from-gregorian cursor-date) arg)))
            (new-display-month (calendar-extract-month new-cursor-date))
            (new-display-year (calendar-extract-year new-cursor-date)))
-      ;; Put the new month on the screen, if needed, and go to the new date.
-      (if (calendar-date-is-visible-p new-cursor-date)
-          (calendar-cursor-to-visible-date new-cursor-date)
+      ;; Put the new month on the screen, if needed.
+      (unless (calendar-date-is-visible-p new-cursor-date)
         ;; The next line gives smoother scrolling IMO (one month at a
         ;; time rather than two).
         (calendar-increment-month new-display-month new-display-year
                                   (if (< arg 0) 1 -1))
-        (calendar-other-month new-display-month new-display-year))))
+        (calendar-other-month new-display-month new-display-year))
+      ;; Go to the new date.
+      (calendar-cursor-to-visible-date new-cursor-date)))
   (run-hooks 'calendar-move-hook))
 
 ;;;###cal-autoload