From 519bfec49611bbe4d4b7ea642c755c70ba014f1d Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 12 Mar 1995 09:39:49 +0000 Subject: [PATCH] (shell): Use pop-to-buffer. (same-window-buffer-names): Add *shell* to the list. --- lisp/shell.el | 24 +++++++++++++++--------- 1 file changed, 15 insertions(+), 9 deletions(-) diff --git a/lisp/shell.el b/lisp/shell.el index 9f07194d305..3d60af3f6d1 100644 --- a/lisp/shell.el +++ b/lisp/shell.el @@ -365,15 +365,21 @@ Otherwise, one argument `-i' is passed to the shell. "/bin/sh")) (name (file-name-nondirectory prog)) (startfile (concat "~/.emacs_" name)) - (xargs-name (intern-soft (concat "explicit-" name "-args")))) - (set-buffer (apply 'make-comint "shell" prog - (if (file-exists-p startfile) startfile) - (if (and xargs-name (boundp xargs-name)) - (symbol-value xargs-name) - '("-i")))) - (shell-mode) - (switch-to-buffer (current-buffer))) - (switch-to-buffer "*shell*"))) + (xargs-name (intern-soft (concat "explicit-" name "-args"))) + shell-buffer) + (save-excursion + (set-buffer (apply 'make-comint "shell" prog + (if (file-exists-p startfile) startfile) + (if (and xargs-name (boundp xargs-name)) + (symbol-value xargs-name) + '("-i")))) + (setq shell-buffer (current-buffer)) + (shell-mode)) + (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 ;;; =========================================================================== -- 2.39.5