864 |
(redraw-calendar)) |
(redraw-calendar)) |
865 |
(let ((marking-diary-entries t) |
(let ((marking-diary-entries t) |
866 |
file-glob-attrs marks) |
file-glob-attrs marks) |
867 |
(save-excursion |
(with-current-buffer (find-file-noselect (diary-check-diary-file) t) |
868 |
(with-current-buffer (find-file-noselect (diary-check-diary-file) t) |
(save-excursion |
869 |
(setq mark-diary-entries-in-calendar t) |
(setq mark-diary-entries-in-calendar t) |
870 |
(message "Marking diary entries...") |
(message "Marking diary entries...") |
871 |
(setq file-glob-attrs (nth 1 (diary-pull-attrs nil '()))) |
(setq file-glob-attrs (nth 1 (diary-pull-attrs nil '()))) |