From a3e7c3916d8f33cff991f12ce67ace2172e1ff49 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Francesco=20Potort=C3=AC?= Date: Mon, 18 Mar 1996 18:50:25 +0000 Subject: [PATCH] * simple.el (insert-buffer): Interactive default changed to a more reasonable one. --- lisp/simple.el | 13 +++++++++---- 1 file changed, 9 insertions(+), 4 deletions(-) diff --git a/lisp/simple.el b/lisp/simple.el index b24e6d87e2d..e28d2638d67 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) -- 2.39.2