diff options
| author | Gerd Moellmann <gerd@gnu.org> | 1999-11-03 15:08:53 +0000 |
|---|---|---|
| committer | Gerd Moellmann <gerd@gnu.org> | 1999-11-03 15:08:53 +0000 |
| commit | 982c4eaf4e58c442c3f56bb797f995867c26fb93 (patch) | |
| tree | 42ef6ea32d4d53c740be67d01ad1b856eff2637b /lisp/calendar | |
| parent | bdb46d080a273f18c3b57a79c46921012732ec21 (diff) | |
| download | emacs-982c4eaf4e58c442c3f56bb797f995867c26fb93.tar.gz | |
(redraw-calendar): Move to nearest date before
redrawing.
Diffstat (limited to 'lisp/calendar')
| -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 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))) |