(mark-diary-entries): Revert last change.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e2ef572c6c216842abac557ff2b303a0510d3e66..7e98ed9b2f7f42cb24ef9964ce76c3d938e61b61 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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 --git a/lisp/calendar/diary-lib.el b/lisp/calendar/diary-lib.el
index b748d15e41c1e20ef6f3e348aa0595b4e07574c0..3b634caaa9c381037c9846b40b2bcfa835fca784 100644 (file)
--- a/lisp/calendar/diary-lib.el
+++ b/lisp/calendar/diary-lib.el
@@ -864,8 +864,8 @@ diary entries."
     (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 '())))