(shell): With prefix-arg, suggest a new buffer name.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2e2400979aed01ab1418a208993f28d35ef5cdde..659424658775b1710ebed9e58cf8ce19288ba06b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2003-08-12  Markus Rost  <rost@math.ohio-state.edu>
+
+       * shell.el (shell): With prefix-arg, suggest a new buffer name.
+
 2003-08-12  Andre Spiegel  <spiegel@gnu.org>
 
        * vc-sccs.el (vc-sccs-state-heuristic): Fix parentheses.

diff --git a/lisp/shell.el b/lisp/shell.el
index fdf80cba220e6516aa98d436191ecfd3a110fa88..b220b85fbbef8b7fc1f361fffbe07bf8fea4666d 100644 (file)
--- a/lisp/shell.el
+++ b/lisp/shell.el
@@ -533,7 +533,8 @@ Otherwise, one argument `-i' is passed to the shell.
   (interactive
    (list
     (and current-prefix-arg
-        (read-buffer "Shell buffer: " "*shell*"))))
+        (read-buffer "Shell buffer: "
+                     (generate-new-buffer-name "*shell*")))))
   (setq buffer (get-buffer-create (or buffer "*shell*")))
   ;; Pop to buffer, so that the buffer's window will be correctly set
   ;; when we call comint (so that comint sets the COLUMNS env var properly).