Commit 519bfec4 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(shell): Use pop-to-buffer.

(same-window-buffer-names): Add *shell* to the list.
parent 4d235ac7
...@@ -365,15 +365,21 @@ Otherwise, one argument `-i' is passed to the shell. ...@@ -365,15 +365,21 @@ Otherwise, one argument `-i' is passed to the shell.
"/bin/sh")) "/bin/sh"))
(name (file-name-nondirectory prog)) (name (file-name-nondirectory prog))
(startfile (concat "~/.emacs_" name)) (startfile (concat "~/.emacs_" name))
(xargs-name (intern-soft (concat "explicit-" name "-args")))) (xargs-name (intern-soft (concat "explicit-" name "-args")))
shell-buffer)
(save-excursion
(set-buffer (apply 'make-comint "shell" prog (set-buffer (apply 'make-comint "shell" prog
(if (file-exists-p startfile) startfile) (if (file-exists-p startfile) startfile)
(if (and xargs-name (boundp xargs-name)) (if (and xargs-name (boundp xargs-name))
(symbol-value xargs-name) (symbol-value xargs-name)
'("-i")))) '("-i"))))
(shell-mode) (setq shell-buffer (current-buffer))
(switch-to-buffer (current-buffer))) (shell-mode))
(switch-to-buffer "*shell*"))) (pop-to-buffer shell-buffer))
(pop-to-buffer "*shell*")))
;;; Don't do this when shell.el is loaded, only while dumping.
;;;###autoload (add-hook 'same-window-buffer-names "*shell*")
;;; Directory tracking ;;; Directory tracking
;;; =========================================================================== ;;; ===========================================================================
......
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