(mark-diary-entries): Rearrange to wrap with-current-buffer form in

save-excursion.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2fc94311b00104ed1180453b8f69b5547970bc4e..452cbb2971d52a1fd645ad85ce1f37ed6d2696ea 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2005-09-18  Romain Francoise  <romain@orebokech.com>
+
+       * calendar/diary-lib.el (mark-diary-entries): Rearrange to wrap
+       with-current-buffer form in save-excursion.
+
 2005-09-18  D Goel  <deego@gnufans.org>
 
        * apropos.el (apropos-command): Fix `message' call: first arg
@@ -7,7 +12,7 @@
        that the arguments would cause an error, for example, the code is
        question relies on extarnal variables such as filenames. [2] I was
        sure that the arg to `message' could not have been nil in the
-       code.  
+       code.
 
        * textmodes/tildify.el (tildify-region): Ditto.
 
@@ -148,13 +153,12 @@
 
        * bookmark.el (bookmark-bmenu-locate): Ditto.
 
-       * obsolete/fast-lock.el (@top-level): Ditto in the macro definition of `with-temp-message'.     
+       * obsolete/fast-lock.el (@top-level): Ditto in the macro
+       definition of `with-temp-message'.
 
        * pcomplete.el (pcomplete--help): Fix `message' format spec. Not
        having a %s would be weird, though not technically wrong.
 
-
-       
 2005-09-18  YAMAMOTO Mitsuharu  <mituharu@math.s.chiba-u.ac.jp>
 
        * term/mac-win.el (mac-add-charset-info): Doc fix.

diff --git a/lisp/calendar/diary-lib.el b/lisp/calendar/diary-lib.el
index 3b634caaa9c381037c9846b40b2bcfa835fca784..b748d15e41c1e20ef6f3e348aa0595b4e07574c0 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)
-    (with-current-buffer (find-file-noselect (diary-check-diary-file) t)
-      (save-excursion
+    (save-excursion
+      (with-current-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 '())))