Commit 8f5f1e68 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

* lisp/shell.el (shell): Use current-buffer by default if it's already

a shell mode buffer and its process is dead.  Suggested by <jemarch@gnu.org>.
parent a2994808
2010-11-23 Stefan Monnier <monnier@iro.umontreal.ca>
* shell.el (shell): Use current-buffer by default if it's already
a shell mode buffer and its process is dead.
Suggested by <jemarch@gnu.org>.
2010-11-23 Tassilo Horn <tassilo@member.fsf.org>
 
* mail/emacsbug.el (report-emacs-bug-query-existing-bugs): Mention
that the keywords should be comma separated.
* mail/emacsbug.el (report-emacs-bug-query-existing-bugs):
Mention that the keywords should be comma separated.
 
2010-11-23 Chong Yidong <cyd@stupidchicken.com>
 
......
......@@ -554,13 +554,19 @@ Otherwise, one argument `-i' is passed to the shell.
(generate-new-buffer-name "*shell*"))
(if (file-remote-p default-directory)
;; It must be possible to declare a local default-directory.
;; FIXME: This can't be right: it changes the default-directory
;; of the current-buffer rather than of the *shell* buffer.
(setq default-directory
(expand-file-name
(read-file-name
"Default directory: " default-directory default-directory
t nil 'file-directory-p))))))))
(require 'ansi-color)
(setq buffer (get-buffer-create (or buffer "*shell*")))
(setq buffer (if (or buffer (not (derived-mode-p 'shell-mode))
(comint-check-proc (current-buffer)))
(get-buffer-create (or buffer "*shell*"))
;; If the current buffer is a dead shell buffer, use it.
(current-buffer)))
;; 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).
(pop-to-buffer buffer)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment