Mercurial > emacs
changeset 92855:0d4658ce77e2
Whitespace only.
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Thu, 13 Mar 2008 06:24:52 +0000 |
parents | 5ddbb514b6c5 |
children | 68e88df4a24b |
files | lisp/calendar/cal-move.el |
diffstat | 1 files changed, 8 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- 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))))))