diff options
author | Francesco Potortì <[email protected]> | 1996-03-18 18:50:25 +0000 |
---|---|---|
committer | Francesco Potortì <[email protected]> | 1996-03-18 18:50:25 +0000 |
commit | a3e7c3916d8f33cff991f12ce67ace2172e1ff49 (patch) | |
tree | 9275693b4b73fbef9f354c2df7c8989731d92783 | |
parent | 63a1c38c9fdbd0b4c204c9be7f0ce87852e80f24 (diff) |
* simple.el (insert-buffer): Interactive default changed to a more
reasonable one.
-rw-r--r-- | lisp/simple.el | 13 |
1 files changed, 9 insertions, 4 deletions
diff --git a/lisp/simple.el b/lisp/simple.el index b24e6d87e2..e28d2638d6 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -1373,10 +1373,15 @@ With argument, rotate that many kills forward (or backward, if negative)." "Insert after point the contents of BUFFER. 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 (current-buffer) t) - t)))) +(interactive + (list + (progn + (barf-if-buffer-read-only) + (read-buffer "Insert buffer: " + (if (eq (selected-window) (next-window (selected-window))) + (other-buffer (current-buffer)) + (window-buffer (next-window (selected-window)))) + t)))) (or (bufferp buffer) (setq buffer (get-buffer buffer))) (let (start end newmark) |