From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 22 Nov 1994 19:19:42 +0000 (+0000)
Subject: (append-to-buffer): Don't use current buffer as default.
X-Git-Tag: emacs-19.34~5807
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5d771766ab10a84bb0bb7e114a735b5b62776b98;p=emacs.git

(append-to-buffer): Don't use current buffer as default.
---

diff --git a/lisp/simple.el b/lisp/simple.el
index 16e333ed72e..14e2c68aa14 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -1290,7 +1290,7 @@ When calling from a program, give three arguments:
 BUFFER (or buffer name), START and END.
 START and END specify the portion of the current buffer to be copied."
   (interactive
-   (list (read-buffer "Append to buffer: " (other-buffer nil t))
+   (list (read-buffer "Append to buffer: " (other-buffer (current-buffer) t))
 	 (region-beginning) (region-end)))
   (let ((oldbuf (current-buffer)))
     (save-excursion