# HG changeset patch # User Romain Francoise # Date 1127050014 0 # Node ID 23bf1a7921e0c2490b162840c29a83abf0953a39 # Parent e188ae94d98be57300626ae4b81876ff9a1fb40d (mark-diary-entries): Rearrange to wrap with-current-buffer form in save-excursion. diff -r e188ae94d98b -r 23bf1a7921e0 lisp/ChangeLog --- a/lisp/ChangeLog Sun Sep 18 12:59:19 2005 +0000 +++ b/lisp/ChangeLog Sun Sep 18 13:26:54 2005 +0000 @@ -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 -r e188ae94d98b -r 23bf1a7921e0 lisp/calendar/diary-lib.el --- a/lisp/calendar/diary-lib.el Sun Sep 18 12:59:19 2005 +0000 +++ b/lisp/calendar/diary-lib.el Sun Sep 18 13:26:54 2005 +0000 @@ -864,8 +864,8 @@ (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 '())))