From: Glenn Morris Date: Fri, 11 Mar 2005 21:44:06 +0000 (+0000) Subject: (mark-diary-entries): No need to redraw calendar if that is why we X-Git-Tag: ttn-vms-21-2-B4~1834 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4b1523ac4a55af0a794efd033fd9f86cbdf977db;p=emacs.git (mark-diary-entries): No need to redraw calendar if that is why we were called. --- 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)