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

2 files changed, 6 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2e2400979ae..65942465877 100644
--- 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 fdf80cba220..b220b85fbbe 100644
--- 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).