# HG changeset patch
# User Markus Rost <rost@math.uni-bielefeld.de>
# Date 1060731421 0
# Node ID 2768e13cd476d614b7bbc917e01614e02ea8d524
# Parent  c3baeab09becf011eb016768aa993b4b7d09c769
(shell): With prefix-arg, suggest a new buffer name.

diff -r c3baeab09bec -r 2768e13cd476 lisp/shell.el
--- a/lisp/shell.el	Tue Aug 12 18:05:44 2003 +0000
+++ b/lisp/shell.el	Tue Aug 12 23:37:01 2003 +0000
@@ -533,7 +533,8 @@
   (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).