Mercurial > emacs

diff lisp/simple.el @ 8998:25406f41c336

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(insert-buffer): Default to first buffer other than current one.
author Richard M. Stallman <rms@gnu.org>
date Thu, 22 Sep 1994 07:22:46 +0000
parents e2073805b688
children e321617e3fc6
line wrap: on
line diff
--- a/lisp/simple.el	Thu Sep 22 06:55:11 1994 +0000
+++ b/lisp/simple.el	Thu Sep 22 07:22:46 1994 +0000
@@ -1230,7 +1230,9 @@
 Puts mark after the inserted text.
 BUFFER may be a buffer or a buffer name."
   (interactive (list (progn (barf-if-buffer-read-only)
-			    (read-buffer "Insert buffer: " (other-buffer) t))))
+			    (read-buffer "Insert buffer: " 
+					 (other-buffer (current-buffer) t)
+					 t))))
   (or (bufferp buffer)
       (setq buffer (get-buffer buffer)))
   (let (start end newmark)