Mercurial > emacs
comparison lisp/calendar/diary-lib.el @ 54127:35aa728a0635
Matthew Mundell <matt@mundell.ukfsn.org>
(fancy-diary-display): Don't rely on return value of
increment-calendar-month.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Mon, 23 Feb 2004 00:09:31 +0000 |
| parents | eeaae818026b |
| children | a059a7176bbd |
comparison
equal
deleted
inserted
replaced
| 54126:8d0f80667054 | 54127:35aa728a0635 |
|---|---|
| 585 ;; We need to get the holidays for the next 3 months. | 585 ;; We need to get the holidays for the next 3 months. |
| 586 (setq holiday-list-last-month | 586 (setq holiday-list-last-month |
| 587 (extract-calendar-month date)) | 587 (extract-calendar-month date)) |
| 588 (setq holiday-list-last-year | 588 (setq holiday-list-last-year |
| 589 (extract-calendar-year date)) | 589 (extract-calendar-year date)) |
| 590 (increment-calendar-month | 590 (progn |
| 591 holiday-list-last-month holiday-list-last-year 1) | 591 (increment-calendar-month |
| 592 holiday-list-last-month holiday-list-last-year 1) | |
| 593 t) | |
| 592 (setq holiday-list | 594 (setq holiday-list |
| 593 (let ((displayed-month holiday-list-last-month) | 595 (let ((displayed-month holiday-list-last-month) |
| 594 (displayed-year holiday-list-last-year)) | 596 (displayed-year holiday-list-last-year)) |
| 595 (calendar-holiday-list))) | 597 (calendar-holiday-list))) |
| 596 (increment-calendar-month | 598 (increment-calendar-month |