Mercurial > emacs

changeset 60567:46c9ccd1e7a5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mark-diary-entries): No need to redraw calendar if that is why we were called.
author Glenn Morris <rgm@gnu.org>
date Fri, 11 Mar 2005 21:44:06 +0000
parents 9b5d0abc7e4f
children e2cd8a11381a
files lisp/calendar/diary-lib.el
diffstat 1 files changed, 4 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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)