(insert-buffer): Default to first buffer other than current one.

diff --git a/lisp/simple.el b/lisp/simple.el
index 1e30d14..0ced4f6 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -1230,7 +1230,9 @@ With argument, rotate that many kills forward (or backward, if negative)."
 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)