* simple.el (append-to-buffer): Fix last change.

2 files changed, 6 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4cfb8549b46..715f6fccba2 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2010-03-25  Chong Yidong  <cyd@stupidchicken.com>
+
+        * simple.el (append-to-buffer): Fix last change.
+
 2010-03-24  Chong Yidong  <cyd@stupidchicken.com>
 
         * simple.el (append-to-buffer): Ensure that point is preserved if
diff --git a/lisp/simple.el b/lisp/simple.el
index 2adf4756dca..35001a694df 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -3472,8 +3472,8 @@ START and END specify the portion of the current buffer to be copied."
     (let* ((append-to (get-buffer-create buffer))
            (windows (get-buffer-window-list append-to t t))
            point)
-      (with-current-buffer append-to
-        (save-excursion
+      (save-excursion
+        (with-current-buffer append-to
           (setq point (point))
           (barf-if-buffer-read-only)
           (insert-buffer-substring oldbuf start end)