From 4b1523ac4a55af0a794efd033fd9f86cbdf977db Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Fri, 11 Mar 2005 21:44:06 +0000 Subject: [PATCH] (mark-diary-entries): No need to redraw calendar if that is why we were called. --- lisp/calendar/diary-lib.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/lisp/calendar/diary-lib.el b/lisp/calendar/diary-lib.el index d682a3f1cc5..124b29c3fe7 100644 --- a/lisp/calendar/diary-lib.el +++ b/lisp/calendar/diary-lib.el @@ -846,7 +846,10 @@ After the entries are marked, the hooks `nongregorian-diary-marking-hook' and ;; 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) -- 2.39.2