From f5684817b12c7c418a03d034a284a6cab687c97f Mon Sep 17 00:00:00 2001 From: kaoru Date: Wed, 6 Jan 2010 08:20:22 +0000 Subject: [PATCH] Undo last commit. --- elmo/ChangeLog | 5 ----- elmo/elmo-util.el | 9 ++++----- 2 files changed, 4 insertions(+), 10 deletions(-) diff --git a/elmo/ChangeLog b/elmo/ChangeLog index 85bc084..2023b9d 100644 --- a/elmo/ChangeLog +++ b/elmo/ChangeLog @@ -1,8 +1,3 @@ -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 5147fa8..af9664f 100644 --- 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) -- 1.7.10.4