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) |