From d172e3e45a6a72e401583a135f37eb3e85c75fb9 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Wed, 3 Nov 1999 15:08:53 +0000 Subject: [PATCH] (redraw-calendar): Move to nearest date before redrawing. --- lisp/calendar/calendar.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/calendar/calendar.el b/lisp/calendar/calendar.el index 9061cdba76e..8a9459c4231 100644 --- a/lisp/calendar/calendar.el +++ b/lisp/calendar/calendar.el @@ -1860,7 +1860,7 @@ the inserted text. Value is always t." (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))) -- 2.39.5