diff options
| author | Kenichi Handa | 2003-09-08 11:56:09 +0000 |
|---|---|---|
| committer | Kenichi Handa | 2003-09-08 11:56:09 +0000 |
| commit | 463f5630a5e7cbe7f042bc1175d1fa1c4e98860f (patch) | |
| tree | 3287d0c628fea2249abf4635b3a4f45bedd6f8c4 /lisp/shell.el | |
| parent | 4256310de631bd57c78b88b5131caa073315b3d7 (diff) | |
| download | emacs-463f5630a5e7cbe7f042bc1175d1fa1c4e98860f.tar.gz emacs-463f5630a5e7cbe7f042bc1175d1fa1c4e98860f.zip | |
New directory
Diffstat (limited to 'lisp/shell.el')
| -rw-r--r-- | lisp/shell.el | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/lisp/shell.el b/lisp/shell.el index c9191bc1648..fdf80cba220 100644 --- a/lisp/shell.el +++ b/lisp/shell.el | |||
| @@ -533,8 +533,7 @@ Otherwise, one argument `-i' is passed to the shell. | |||
| 533 | (interactive | 533 | (interactive |
| 534 | (list | 534 | (list |
| 535 | (and current-prefix-arg | 535 | (and current-prefix-arg |
| 536 | (read-buffer "Shell buffer: " | 536 | (read-buffer "Shell buffer: " "*shell*")))) |
| 537 | (generate-new-buffer-name "*shell*"))))) | ||
| 538 | (setq buffer (get-buffer-create (or buffer "*shell*"))) | 537 | (setq buffer (get-buffer-create (or buffer "*shell*"))) |
| 539 | ;; Pop to buffer, so that the buffer's window will be correctly set | 538 | ;; 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). | 539 | ;; when we call comint (so that comint sets the COLUMNS env var properly). |
| @@ -1065,5 +1064,4 @@ Returns t if successful." | |||
| 1065 | 1064 | ||
| 1066 | (provide 'shell) | 1065 | (provide 'shell) |
| 1067 | 1066 | ||
| 1068 | ;;; arch-tag: bcb5f12a-c1f4-4aea-a809-2504bd5bd797 | ||
| 1069 | ;;; shell.el ends here | 1067 | ;;; shell.el ends here |