Mercurial > emacs
comparison lisp/calendar/diary-lib.el @ 59063:be41382b25ea
From Markus Rost <rost@ias.edu>:
(mark-diary-entries): Set mark-diary-entries-in-calendar only after
checking for diary-file.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Tue, 21 Dec 2004 15:03:31 +0000 |
| parents | 5ddb0b71254b |
| children | aac0a33f5772 eac554634bfa |
comparison
equal
deleted
inserted
replaced
| 59062:a48a2a91a063 | 59063:be41382b25ea |
|---|---|
| 839 "Mark days in the calendar window that have diary entries. | 839 "Mark days in the calendar window that have diary entries. |
| 840 Each entry in the diary file visible in the calendar window is marked. | 840 Each entry in the diary file visible in the calendar window is marked. |
| 841 After the entries are marked, the hooks `nongregorian-diary-marking-hook' and | 841 After the entries are marked, the hooks `nongregorian-diary-marking-hook' and |
| 842 `mark-diary-entries-hook' are run." | 842 `mark-diary-entries-hook' are run." |
| 843 (interactive) | 843 (interactive) |
| 844 (setq mark-diary-entries-in-calendar t) | |
| 845 (let ((marking-diary-entries t) | 844 (let ((marking-diary-entries t) |
| 846 file-glob-attrs marks) | 845 file-glob-attrs marks) |
| 847 (save-excursion | 846 (save-excursion |
| 848 (set-buffer (find-file-noselect (diary-check-diary-file) t)) | 847 (set-buffer (find-file-noselect (diary-check-diary-file) t)) |
| 848 (setq mark-diary-entries-in-calendar t) | |
| 849 (message "Marking diary entries...") | 849 (message "Marking diary entries...") |
| 850 (setq file-glob-attrs (nth 1 (diary-pull-attrs nil '()))) | 850 (setq file-glob-attrs (nth 1 (diary-pull-attrs nil '()))) |
| 851 (let ((d diary-date-forms) | 851 (let ((d diary-date-forms) |
| 852 (old-diary-syntax-table (syntax-table)) | 852 (old-diary-syntax-table (syntax-table)) |
| 853 temp) | 853 temp) |