Mercurial > emacs

changeset 24337:d9aef2d7c503

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(scroll-calendar-left): Don't set displayed-month and displayed-year here, let generate-calendar do it, after range checking.
author Andreas Schwab <schwab@suse.de>
date Wed, 17 Feb 1999 10:32:01 +0000
parents 3c68ad53545e
children 3e873a016458
files lisp/calendar/cal-move.el
diffstat 1 files changed, 5 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- 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.