Mercurial > emacs
comparison lisp/calendar/calendar.el @ 60322:ae2850fc74dc
(redraw-calendar): Work from any buffer, not just the calendar.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Tue, 01 Mar 2005 10:24:33 +0000 |
| parents | b8747b7d8e2a |
| children | 952103a61e35 e4694597cbf4 |
comparison
equal
deleted
inserted
replaced
| 60321:efcf9ada3122 | 60322:ae2850fc74dc |
|---|---|
| 2167 (newline) | 2167 (newline) |
| 2168 (forward-line 1)))) | 2168 (forward-line 1)))) |
| 2169 t) | 2169 t) |
| 2170 | 2170 |
| 2171 (defun redraw-calendar () | 2171 (defun redraw-calendar () |
| 2172 "Redraw the calendar display." | 2172 "Redraw the calendar display, if `calendar-buffer' is live." |
| 2173 (interactive) | 2173 (interactive) |
| 2174 (let ((cursor-date (calendar-cursor-to-nearest-date))) | 2174 (if (get-buffer calendar-buffer) |
| 2175 (generate-calendar-window displayed-month displayed-year) | 2175 (with-current-buffer calendar-buffer |
| 2176 (calendar-cursor-to-visible-date cursor-date))) | 2176 (let ((cursor-date (calendar-cursor-to-nearest-date))) |
| 2177 (generate-calendar-window displayed-month displayed-year) | |
| 2178 (calendar-cursor-to-visible-date cursor-date))))) | |
| 2177 | 2179 |
| 2178 (defcustom calendar-debug-sexp nil | 2180 (defcustom calendar-debug-sexp nil |
| 2179 "*Turn debugging on when evaluating a sexp in the diary or holiday list." | 2181 "*Turn debugging on when evaluating a sexp in the diary or holiday list." |
| 2180 :type 'boolean | 2182 :type 'boolean |
| 2181 :group 'calendar) | 2183 :group 'calendar) |