# HG changeset patch
# User Romain Francoise <romain@orebokech.com>
# Date 1127145831 0
# Node ID e09cff91900a30eb1e082f3336d768c9aa398875
# Parent  b9c26f9516da2e6a2e5c8640f7eaf6b912d5e8c8
(mark-diary-entries): Revert last change.

diff -r b9c26f9516da -r e09cff91900a lisp/ChangeLog
--- a/lisp/ChangeLog	Mon Sep 19 12:08:07 2005 +0000
+++ b/lisp/ChangeLog	Mon Sep 19 16:03:51 2005 +0000
@@ -1,3 +1,7 @@
+2005-09-19  Romain Francoise  <romain@orebokech.com>
+
+	* calendar/diary-lib.el (mark-diary-entries): Revert last change.
+
 2005-09-19  Stefan Monnier  <monnier@iro.umontreal.ca>
 
 	* font-lock.el (font-lock-default-fontify-region):
diff -r b9c26f9516da -r e09cff91900a lisp/calendar/diary-lib.el
--- a/lisp/calendar/diary-lib.el	Mon Sep 19 12:08:07 2005 +0000
+++ b/lisp/calendar/diary-lib.el	Mon Sep 19 16:03:51 2005 +0000
@@ -864,8 +864,8 @@
     (redraw-calendar))
   (let ((marking-diary-entries t)
         file-glob-attrs marks)
-    (save-excursion
-      (with-current-buffer (find-file-noselect (diary-check-diary-file) t)
+    (with-current-buffer (find-file-noselect (diary-check-diary-file) t)
+      (save-excursion
         (setq mark-diary-entries-in-calendar t)
         (message "Marking diary entries...")
         (setq file-glob-attrs (nth 1 (diary-pull-attrs nil '())))