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

diff --git a/lisp/simple.el b/lisp/simple.el
index 16e333ed72e2a859960643d7d2bae4a2750c867c..14e2c68aa149d8e6574a72a343c177da0fc04bc5 100644 (file)
--- 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