Mercurial > emacs
comparison lisp/calendar/calendar.el @ 26329:5dfb5127e9ee
(redraw-calendar): Move to nearest date before
redrawing.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Wed, 03 Nov 1999 15:08:53 +0000 |
| parents | 27c66621737f |
| children | 3b6cf16f3633 |
comparison
equal
deleted
inserted
replaced
| 26328:8c9e0c4459a8 | 26329:5dfb5127e9ee |
|---|---|
| 1858 t) | 1858 t) |
| 1859 | 1859 |
| 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 |
| 1867 (defcustom calendar-debug-sexp nil | 1867 (defcustom calendar-debug-sexp nil |
| 1868 "*Turn debugging on when evaluating a sexp in the diary or holiday list." | 1868 "*Turn debugging on when evaluating a sexp in the diary or holiday list." |