Undo last commit.

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 85bc084..2023b9d 100644 (file)
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,8 +1,3 @@
-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 5147fa8..af9664f 100644 (file)
--- a/elmo/elmo-util.el
+++ b/elmo/elmo-util.el
@@ -71,11 +71,10 @@
 
 (defmacro elmo-set-work-buf (&rest body)
   "Execute BODY on work buffer.  Work buffer remains."
-  `(save-excursion
-     (with-current-buffer (get-buffer-create elmo-work-buf-name)
-       (set-buffer-multibyte default-enable-multibyte-characters)
-       (erase-buffer)
-       ,@body)))
+  `(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)