# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1110577446 0
# Node ID 46c9ccd1e7a5191846e18fb9cda8d3446eaf1f59
# Parent  9b5d0abc7e4fb90797dcf927a4b48142799c2f9a
(mark-diary-entries): No need to redraw calendar if that is why we
were called.

diff -r 9b5d0abc7e4f -r 46c9ccd1e7a5 lisp/calendar/diary-lib.el
--- a/lisp/calendar/diary-lib.el	Fri Mar 11 21:43:29 2005 +0000
+++ b/lisp/calendar/diary-lib.el	Fri Mar 11 21:44:06 2005 +0000
@@ -846,7 +846,10 @@
              ;; Avoid redrawing when called recursively, eg through
              ;; mark-diary-entries-hook for #include's, else only get
              ;; the last set of diary marks.
-             (not marking-diary-entries))
+             (not marking-diary-entries)
+             ;; If called from redraw-calendar, the calendar has been
+             ;; erased, so no need to unmark the diary entries.
+             (not calendar-redrawing))
     (setq mark-diary-entries-in-calendar nil)
     (redraw-calendar))
   (let ((marking-diary-entries t)