From 9d30a9f45e3c9b60b2e5c6816ba26d1ee0de718e Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Thu, 25 Mar 2010 01:53:30 -0400 Subject: [PATCH] * simple.el (append-to-buffer): Fix last change. --- lisp/ChangeLog | 4 ++++ lisp/simple.el | 4 ++-- 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 + + * simple.el (append-to-buffer): Fix last change. + 2010-03-24 Chong Yidong * 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) -- 2.39.5