From: Glenn Morris <rgm@gnu.org>
Date: Mon, 23 Feb 2004 00:09:31 +0000 (+0000)
Subject: Matthew Mundell <matt@mundell.ukfsn.org>
X-Git-Tag: ttn-vms-21-2-B4~7484
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=de3fce917a4d536639b9bf24b66303fe4ad6c524;p=emacs.git

Matthew Mundell <matt@mundell.ukfsn.org>
(fancy-diary-display): Don't rely on return value of
increment-calendar-month.
---

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))