842 |
`mark-diary-entries-hook' are run." |
`mark-diary-entries-hook' are run." |
843 |
(interactive) |
(interactive) |
844 |
;; To remove any deleted diary entries. |
;; To remove any deleted diary entries. |
845 |
(when mark-diary-entries-in-calendar |
(when (and mark-diary-entries-in-calendar |
846 |
|
;; Avoid redrawing when called recursively, eg through |
847 |
|
;; mark-diary-entries-hook for #include's, else only get |
848 |
|
;; the last set of diary marks. |
849 |
|
(not marking-diary-entries)) |
850 |
(setq mark-diary-entries-in-calendar nil) |
(setq mark-diary-entries-in-calendar nil) |
851 |
(redraw-calendar)) |
(redraw-calendar)) |
852 |
(let ((marking-diary-entries t) |
(let ((marking-diary-entries t) |