diff options
| author | Glenn Morris <rgm@gnu.org> | 2005-03-11 21:44:06 +0000 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2005-03-11 21:44:06 +0000 |
| commit | 4b1523ac4a55af0a794efd033fd9f86cbdf977db (patch) | |
| tree | 704c6298ee41d454f3688a10b07dc1d5f3679863 /lisp | |
| parent | 33873baddc07f6447e6c49902f84382cb5baec89 (diff) | |
| download | emacs-4b1523ac4a55af0a794efd033fd9f86cbdf977db.tar.gz emacs-4b1523ac4a55af0a794efd033fd9f86cbdf977db.tar.bz2 emacs-4b1523ac4a55af0a794efd033fd9f86cbdf977db.zip | |
(mark-diary-entries): No need to redraw calendar if that is why we
were called.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/calendar/diary-lib.el | 5 |
1 files changed, 4 insertions, 1 deletions
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) |