# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1077494971 0
# Node ID 35aa728a06354415fd55419ef0f1cf4099bef40a
# Parent  8d0f806670549ad0223641806d473d6441b707d0
Matthew Mundell <matt@mundell.ukfsn.org>
(fancy-diary-display): Don't rely on return value of
increment-calendar-month.

diff -r 8d0f80667054 -r 35aa728a0635 lisp/calendar/diary-lib.el
--- a/lisp/calendar/diary-lib.el	Sun Feb 22 22:41:52 2004 +0000
+++ b/lisp/calendar/diary-lib.el	Mon Feb 23 00:09:31 2004 +0000
@@ -587,8 +587,10 @@
                            (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))