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 bb4ea20f80403e071c2439ddc405c9fd17d29b53..f4150ee08254ec024fde7f5176a8b6443980b3d7 100644 (file)
--- 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))