--- calendar.el	16 Mar 2005 13:46:14 +0000	1.165
+++ calendar.el	16 Mar 2005 14:21:08 +0000	
@@ -2153,11 +2153,19 @@
 (defun redraw-calendar ()
   "Redraw the calendar display, if `calendar-buffer' is live."
   (interactive)
-  (if (get-buffer calendar-buffer)
-      (with-current-buffer calendar-buffer
+  (let ((buffer (get-buffer calendar-buffer))
+        posn)
+    (when buffer
+      (with-current-buffer buffer
         (let ((cursor-date (calendar-cursor-to-nearest-date)))
           (generate-calendar-window displayed-month displayed-year)
-          (calendar-cursor-to-visible-date cursor-date)))))
+          (calendar-cursor-to-visible-date cursor-date)
+          (setq posn (point))))
+      ;; Sync point in all calendar windows
+      (walk-windows (lambda (w)
+                      (when (eq (window-buffer w) buffer)
+                        (set-window-point w posn)))
+                    nil t))))
 
 ;;;###autoload
 (defcustom calendar-week-start-day 0