From: kaoru Date: Wed, 6 Jan 2010 07:27:37 +0000 (+0000) Subject: * elmo-util.el (elmo-set-work-buf): Revert `save-excursion' for robustness. X-Git-Tag: elmo-imap4-compliance-root~29 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=221c9217efb7a56f122c2389864b7b3958afec1a;p=elisp%2Fwanderlust.git * elmo-util.el (elmo-set-work-buf): Revert `save-excursion' for robustness. --- diff --git a/elmo/ChangeLog b/elmo/ChangeLog index 2023b9d..85bc084 100644 --- a/elmo/ChangeLog +++ b/elmo/ChangeLog @@ -1,3 +1,8 @@ +2010-01-06 TAKAHASHI Kaoru + + * elmo-util.el (elmo-set-work-buf): Revert `save-excursion' for + robustness. + 2010-01-05 TAKAHASHI Kaoru * acap.el (acap-parse-response): Fix comment-out style. Use three diff --git a/elmo/elmo-util.el b/elmo/elmo-util.el index af9664f..5147fa8 100644 --- a/elmo/elmo-util.el +++ b/elmo/elmo-util.el @@ -71,10 +71,11 @@ (defmacro elmo-set-work-buf (&rest body) "Execute BODY on work buffer. Work buffer remains." - `(with-current-buffer (get-buffer-create elmo-work-buf-name) - (set-buffer-multibyte default-enable-multibyte-characters) - (erase-buffer) - ,@body)) + `(save-excursion + (with-current-buffer (get-buffer-create elmo-work-buf-name) + (set-buffer-multibyte default-enable-multibyte-characters) + (erase-buffer) + ,@body))) (put 'elmo-set-work-buf 'lisp-indent-function 0) (def-edebug-spec elmo-set-work-buf t)