Mercurial > emacs

changeset 52181:2768e13cd476

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(shell): With prefix-arg, suggest a new buffer name.
author Markus Rost <rost@math.uni-bielefeld.de>
date Tue, 12 Aug 2003 23:37:01 +0000
parents c3baeab09bec
children e608964c0a89
files lisp/shell.el
diffstat 1 files changed, 2 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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).