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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4cfb8549b466dae89162718d6203cbe43229ac54..715f6fccba22e08d8ba5cb74fa879884361be868 100644 (file)
--- 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 2adf4756dca48f6b6752f28dccfac52d7b156b87..35001a694dff84a6ca9f6ff1e50b7985298ca5d6 100644 (file)
--- 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)