Mercurial > emacs
changeset 65597:23bf1a7921e0
(mark-diary-entries): Rearrange to wrap with-current-buffer form in
save-excursion.
| author | Romain Francoise <romain@orebokech.com> |
|---|---|
| date | Sun, 18 Sep 2005 13:26:54 +0000 |
| parents | e188ae94d98b |
| children | bae76b0c6f5e |
| files | lisp/ChangeLog lisp/calendar/diary-lib.el |
| diffstat | 2 files changed, 10 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- 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 <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.
--- 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 '())))