diff options
| author | Glenn Morris <rgm@gnu.org> | 2004-02-23 00:09:31 +0000 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2004-02-23 00:09:31 +0000 |
| commit | de3fce917a4d536639b9bf24b66303fe4ad6c524 (patch) | |
| tree | 6b10ae99acfc11cd8b5e9ef6916ddeb6e952967a | |
| parent | 7420e0f55dea3b29131b92a272f65b89a6a6027c (diff) | |
| download | emacs-de3fce917a4d536639b9bf24b66303fe4ad6c524.tar.gz | |
Matthew Mundell <matt@mundell.ukfsn.org>
(fancy-diary-display): Don't rely on return value of
increment-calendar-month.
| -rw-r--r-- | lisp/calendar/diary-lib.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/calendar/diary-lib.el b/lisp/calendar/diary-lib.el index bb4ea20f804..f4150ee0825 100644 --- a/lisp/calendar/diary-lib.el +++ b/lisp/calendar/diary-lib.el @@ -587,8 +587,10 @@ This function is provided for optional use as the `diary-display-hook'." (extract-calendar-month date)) (setq holiday-list-last-year (extract-calendar-year date)) - (increment-calendar-month - holiday-list-last-month holiday-list-last-year 1) + (progn + (increment-calendar-month + holiday-list-last-month holiday-list-last-year 1) + t) (setq holiday-list (let ((displayed-month holiday-list-last-month) (displayed-year holiday-list-last-year)) |