Commit 91199264 authored by Glenn Morris's avatar Glenn Morris
Browse files

(mark-diary-entries): Only call redraw-calendar in the first of any

recursive calls.  Reported by Alan Shutko <ats@acm.org>.
parent b924026d
......@@ -842,7 +842,11 @@ After the entries are marked, the hooks `nongregorian-diary-marking-hook' and
`mark-diary-entries-hook' are run."
(interactive)
;; To remove any deleted diary entries.
(when mark-diary-entries-in-calendar
(when (and mark-diary-entries-in-calendar
;; 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))
(setq mark-diary-entries-in-calendar nil)
(redraw-calendar))
(let ((marking-diary-entries t)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment