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

This commit is contained in:
Markus Rost 2003-08-12 23:37:25 +00:00
parent 8b9177ce1b
commit aafd109351
2 changed files with 6 additions and 1 deletions

View file

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

View file

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