841 |
After the entries are marked, the hooks `nongregorian-diary-marking-hook' and |
After the entries are marked, the hooks `nongregorian-diary-marking-hook' and |
842 |
`mark-diary-entries-hook' are run." |
`mark-diary-entries-hook' are run." |
843 |
(interactive) |
(interactive) |
|
(setq mark-diary-entries-in-calendar t) |
|
844 |
(let ((marking-diary-entries t) |
(let ((marking-diary-entries t) |
845 |
file-glob-attrs marks) |
file-glob-attrs marks) |
846 |
(save-excursion |
(save-excursion |
847 |
(set-buffer (find-file-noselect (diary-check-diary-file) t)) |
(set-buffer (find-file-noselect (diary-check-diary-file) t)) |
848 |
|
(setq mark-diary-entries-in-calendar t) |
849 |
(message "Marking diary entries...") |
(message "Marking diary entries...") |
850 |
(setq file-glob-attrs (nth 1 (diary-pull-attrs nil '()))) |
(setq file-glob-attrs (nth 1 (diary-pull-attrs nil '()))) |
851 |
(let ((d diary-date-forms) |
(let ((d diary-date-forms) |