# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1269496410 14400
# Node ID 27d7bc8db6b751140ae5b2baf88d2316903eedf3
# Parent  fd2cdc4e0e6a73e10c28b6aa974a78076063bced
* simple.el (append-to-buffer): Fix last change.

diff -r fd2cdc4e0e6a -r 27d7bc8db6b7 lisp/ChangeLog
--- a/lisp/ChangeLog	Wed Mar 24 17:25:46 2010 -0400
+++ b/lisp/ChangeLog	Thu Mar 25 01:53:30 2010 -0400
@@ -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 -r fd2cdc4e0e6a -r 27d7bc8db6b7 lisp/simple.el
--- a/lisp/simple.el	Wed Mar 24 17:25:46 2010 -0400
+++ b/lisp/simple.el	Thu Mar 25 01:53:30 2010 -0400
@@ -3472,8 +3472,8 @@
     (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)