From: Glenn Morris <rgm@gnu.org>
Date: Tue, 21 Dec 2004 15:03:31 +0000 (+0000)
Subject: From  Markus Rost  <rost@ias.edu>:
X-Git-Tag: ttn-vms-21-2-B4~3179
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d0897fa5354a5b582277d1011d9617bb7a00964b;p=emacs.git

From  Markus Rost  <rost@ias.edu>:
(mark-diary-entries): Set mark-diary-entries-in-calendar only after
checking for diary-file.
---

diff --git a/lisp/calendar/diary-lib.el b/lisp/calendar/diary-lib.el
index fdade091ab2..511f82f8f2f 100644
--- a/lisp/calendar/diary-lib.el
+++ b/lisp/calendar/diary-lib.el
@@ -841,11 +841,11 @@ Each entry in the diary file visible in the calendar window is marked.
 After the entries are marked, the hooks `nongregorian-diary-marking-hook' and
 `mark-diary-entries-hook' are run."
   (interactive)
-  (setq mark-diary-entries-in-calendar t)
   (let ((marking-diary-entries t)
         file-glob-attrs marks)
     (save-excursion
       (set-buffer (find-file-noselect (diary-check-diary-file) t))
+      (setq mark-diary-entries-in-calendar t)
       (message "Marking diary entries...")
       (setq file-glob-attrs (nth 1 (diary-pull-attrs nil '())))
       (let ((d diary-date-forms)