# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 785531982 0
# Node ID db01a04d2afb6c406600eb3d4897d3df75ae1120
# Parent  9b284d98b1021f41ad0675a9bab72ce4f47aca0e
(append-to-buffer): Don't use current buffer as default.

diff -r 9b284d98b102 -r db01a04d2afb lisp/simple.el
--- a/lisp/simple.el	Tue Nov 22 18:17:23 1994 +0000
+++ b/lisp/simple.el	Tue Nov 22 19:19:42 1994 +0000
@@ -1290,7 +1290,7 @@
 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