533 |
(interactive |
(interactive |
534 |
(list |
(list |
535 |
(and current-prefix-arg |
(and current-prefix-arg |
536 |
(read-buffer "Shell buffer: " "*shell*")))) |
(read-buffer "Shell buffer: " |
537 |
|
(generate-new-buffer-name "*shell*"))))) |
538 |
(setq buffer (get-buffer-create (or buffer "*shell*"))) |
(setq buffer (get-buffer-create (or buffer "*shell*"))) |
539 |
;; Pop to buffer, so that the buffer's window will be correctly set |
;; Pop to buffer, so that the buffer's window will be correctly set |
540 |
;; when we call comint (so that comint sets the COLUMNS env var properly). |
;; when we call comint (so that comint sets the COLUMNS env var properly). |