* elmo-util.el (elmo-set-work-buf): Revert `save-excursion' for robustness.

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 2023b9d..85bc084 100644 (file)
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,8 @@
+2010-01-06  TAKAHASHI Kaoru  <kaoru@kaisei.org>
+
+       * elmo-util.el (elmo-set-work-buf): Revert `save-excursion' for
+       robustness.
+
 2010-01-05  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
        * 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 (file)
--- 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)