Mercurial > emacs

diff lisp/simple.el @ 10048:db01a04d2afb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(append-to-buffer): Don't use current buffer as default.
author Richard M. Stallman <rms@gnu.org>
date Tue, 22 Nov 1994 19:19:42 +0000
parents 1c6132b72da9
children f7b9813ea757
line wrap: on
line diff
--- 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