diff options
| author | Gerd Moellmann | 1999-11-03 15:08:53 +0000 |
|---|---|---|
| committer | Gerd Moellmann | 1999-11-03 15:08:53 +0000 |
| commit | d172e3e45a6a72e401583a135f37eb3e85c75fb9 (patch) | |
| tree | 5741e8f0c7e940426f4c9b4128d050daeb3d53f3 | |
| parent | 5865af0db171315ab8fbbde68b0b0766c5dccb6d (diff) | |
| download | emacs-d172e3e45a6a72e401583a135f37eb3e85c75fb9.tar.gz emacs-d172e3e45a6a72e401583a135f37eb3e85c75fb9.zip | |
(redraw-calendar): Move to nearest date before
redrawing.
| -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." | |||
| 1860 | (defun redraw-calendar () | 1860 | (defun redraw-calendar () |
| 1861 | "Redraw the calendar display." | 1861 | "Redraw the calendar display." |
| 1862 | (interactive) | 1862 | (interactive) |
| 1863 | (let ((cursor-date (calendar-cursor-to-date))) | 1863 | (let ((cursor-date (calendar-cursor-to-nearest-date))) |
| 1864 | (generate-calendar-window displayed-month displayed-year) | 1864 | (generate-calendar-window displayed-month displayed-year) |
| 1865 | (calendar-cursor-to-visible-date cursor-date))) | 1865 | (calendar-cursor-to-visible-date cursor-date))) |
| 1866 | 1866 | ||