# HG changeset patch # User Glenn Morris # Date 1205389492 0 # Node ID 0d4658ce77e204af48722dff8684922a4eadd5f7 # Parent 5ddbb514b6c544df8956ac1b4026df048bab3b43 Whitespace only. diff -r 5ddbb514b6c5 -r 0d4658ce77e2 lisp/calendar/cal-move.el --- a/lisp/calendar/cal-move.el Thu Mar 13 06:24:25 2008 +0000 +++ b/lisp/calendar/cal-move.el Thu Mar 13 06:24:52 2008 +0000 @@ -318,21 +318,21 @@ (defun calendar-cursor-to-visible-date (date) "Move the cursor to DATE that is on the screen." (let* ((month (extract-calendar-month date)) - (day (extract-calendar-day date)) - (year (extract-calendar-year date)) - (first-of-month-weekday (calendar-day-of-week (list month 1 year)))) + (day (extract-calendar-day date)) + (year (extract-calendar-year date)) + (first-of-month-weekday (calendar-day-of-week (list month 1 year)))) (goto-line (+ 3 - (/ (+ day -1 + (/ (+ day -1 (mod (- (calendar-day-of-week (list month 1 year)) calendar-week-start-day) 7)) 7))) (move-to-column (+ 6 - (* 25 - (1+ (calendar-interval - displayed-month displayed-year month year))) - (* 3 (mod + (* 25 + (1+ (calendar-interval + displayed-month displayed-year month year))) + (* 3 (mod (- (calendar-day-of-week date) calendar-week-start-day) 7))))))