🚀 go-pugleaf

In article <9008081512.AA20146@life.ai.mit.edu> Dan_Jacobson@ATT.COM writes:

   Say you are in buffer A.  Type M-x insert-buffer.  The default it
   queries you with in the mini-buffer is inserting buffer A.  The
   default should be buffer B, where B is the "second most current
   window," (however that is determined).

Agreed.

   [version 18.55.  Don't send me diffs, I just like making suggestions.]

Ok, here are the diffs...  :-)

*** dist-18.55/lisp/simple.el	Tue Jun  5 00:11:31 1990
--- simple.el	Thu Aug  9 20:35:53 1990
***************
*** 620,626 ****
    "Insert after point the contents of BUFFER.
  Puts mark after the inserted text.
  BUFFER may be a buffer or a buffer name."
!   (interactive "*bInsert buffer: ")
    (or (bufferp buffer)
        (setq buffer (get-buffer buffer)))
    (let (start end newmark)
--- 620,629 ----
    "Insert after point the contents of BUFFER.
  Puts mark after the inserted text.
  BUFFER may be a buffer or a buffer name."
!   (interactive (progn
! 		 (barf-if-buffer-read-only)
! 		 (list
! 		   (read-buffer "Insert buffer: " (other-buffer) t))))
    (or (bufferp buffer)
        (setq buffer (get-buffer buffer)))
    (let (start end newmark)

Enjoy,

-- 
Joe Wells <jbw@uswest.com>