From: Markus Rost <rost@math.uni-bielefeld.de>
Date: Tue, 12 Aug 2003 23:37:25 +0000 (+0000)
Subject: (shell): With prefix-arg, suggest a new buffer name.
X-Git-Tag: ttn-vms-21-2-B4~9121
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=aafd10935188ec46cf8937fd38d6504a69ca8a87;p=emacs.git

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

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).