# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 941641733 0
# Node ID 5dfb5127e9ee6376df3af6bd3dc6e0370b8e800c
# Parent  8c9e0c4459a897bb7b22ab3d9c3e18765a5d2f12
(redraw-calendar): Move to nearest date before
redrawing.

diff -r 8c9e0c4459a8 -r 5dfb5127e9ee lisp/calendar/calendar.el
--- a/lisp/calendar/calendar.el	Wed Nov 03 14:30:11 1999 +0000
+++ b/lisp/calendar/calendar.el	Wed Nov 03 15:08:53 1999 +0000
@@ -1860,7 +1860,7 @@
 (defun redraw-calendar ()
   "Redraw the calendar display."
   (interactive)
-  (let ((cursor-date (calendar-cursor-to-date)))
+  (let ((cursor-date (calendar-cursor-to-nearest-date)))
     (generate-calendar-window displayed-month displayed-year)
     (calendar-cursor-to-visible-date cursor-date)))