[Emacs-diffs] emacs/lisp ChangeLog calendar/cal-move.el

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       09/05/21 04:40:34

Modified files:
        lisp           : ChangeLog 
        lisp/calendar  : cal-move.el 

Log message:
        (calendar-forward-day): Fix 2008-06-21 change -
        always move cursor to new date.  (Bug#3338)

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15650&r2=1.15651
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/calendar/cal-move.el?cvsroot=emacs&r1=1.35&r2=1.36

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15650
retrieving revision 1.15651
diff -u -b -r1.15650 -r1.15651
--- ChangeLog   20 May 2009 15:14:20 -0000      1.15650
+++ ChangeLog   21 May 2009 04:40:08 -0000      1.15651
@@ -1,3 +1,8 @@
+2009-05-21  Glenn Morris  <address@hidden>
+
+       * 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  <address@hidden>
 
        * textmodes/tex-mode.el (tex-uptodate-p): Accept [1{/var/foo}] as

Index: calendar/cal-move.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/calendar/cal-move.el,v
retrieving revision 1.35
retrieving revision 1.36
diff -u -b -r1.35 -r1.36
--- calendar/cal-move.el        10 Jan 2009 22:01:36 -0000      1.35
+++ calendar/cal-move.el        21 May 2009 04:40:31 -0000      1.36
@@ -230,14 +230,15 @@
              (+ (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