From 221c9217efb7a56f122c2389864b7b3958afec1a Mon Sep 17 00:00:00 2001 From: kaoru Date: Wed, 6 Jan 2010 07:27:37 +0000 Subject: [PATCH] * elmo-util.el (elmo-set-work-buf): Revert `save-excursion' for robustness. --- elmo/ChangeLog | 5 +++++ elmo/elmo-util.el | 9 +++++---- 2 files changed, 10 insertions(+), 4 deletions(-) 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) -- 1.7.10.4