From 71773400ad7db4c5c1573b90ff64a082a88e1362 Mon Sep 17 00:00:00 2001 From: Romain Francoise Date: Sun, 18 Sep 2005 13:26:54 +0000 Subject: [PATCH] (mark-diary-entries): Rearrange to wrap with-current-buffer form in save-excursion. --- lisp/ChangeLog | 12 ++++++++---- lisp/calendar/diary-lib.el | 4 ++-- 2 files changed, 10 insertions(+), 6 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 2fc94311b00..452cbb2971d 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2005-09-18 Romain Francoise + + * calendar/diary-lib.el (mark-diary-entries): Rearrange to wrap + with-current-buffer form in save-excursion. + 2005-09-18 D Goel * 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 * 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 3b634caaa9c..b748d15e41c 100644 --- 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 '()))) -- 2.39.5