Mercurial > emacs

changeset 92855:0d4658ce77e2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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))))))