diff options
author | Glenn Morris <[email protected]> | 2005-03-09 00:29:14 +0000 |
---|---|---|
committer | Glenn Morris <[email protected]> | 2005-03-09 00:29:14 +0000 |
commit | 91199264e3bbe734bfc6cf87ed8be6cd8dbc84c6 (patch) | |
tree | f1d87dd3183f4ea26135b0b35ca7eb4870f08bcc /lisp | |
parent | b924026db81f8af7ae4581f0fd26ec1f2a113889 (diff) |
(mark-diary-entries): Only call redraw-calendar in the first of any
recursive calls. Reported by Alan Shutko <[email protected]>.
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/calendar/diary-lib.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/calendar/diary-lib.el b/lisp/calendar/diary-lib.el index 97dc1dd0a7..d682a3f1cc 100644 --- a/lisp/calendar/diary-lib.el +++ b/lisp/calendar/diary-lib.el @@ -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) |