Mercurial > emacs

diff lisp/shell.el @ 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 8cf86bc95fe5
children 695cf19ef79e
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).