diff options
author | Gerd Moellmann <[email protected]> | 1999-11-03 15:08:53 +0000 |
---|---|---|
committer | Gerd Moellmann <[email protected]> | 1999-11-03 15:08:53 +0000 |
commit | d172e3e45a6a72e401583a135f37eb3e85c75fb9 (patch) | |
tree | 5741e8f0c7e940426f4c9b4128d050daeb3d53f3 /lisp/calendar/calendar.el | |
parent | 5865af0db171315ab8fbbde68b0b0766c5dccb6d (diff) |
(redraw-calendar): Move to nearest date before
redrawing.
Diffstat (limited to 'lisp/calendar/calendar.el')
-rw-r--r-- | lisp/calendar/calendar.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/calendar/calendar.el b/lisp/calendar/calendar.el index 9061cdba76..8a9459c423 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))) |