From: Chong Yidong <cyd@stupidchicken.com>
Date: Thu, 25 Mar 2010 05:53:30 +0000 (-0400)
Subject: * simple.el (append-to-buffer): Fix last change.
X-Git-Tag: emacs-pretest-23.1.95~41
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9d30a9f45e3c9b60b2e5c6816ba26d1ee0de718e;p=emacs.git

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

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)