From b0824def8b5e50269110e97d1e4386c706e6c0b9 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 27 Jan 1995 22:37:16 +0000 Subject: [PATCH] (shell): If we create a new shell buffer, select that buffer even if it has been renamed. --- lisp/shell.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/lisp/shell.el b/lisp/shell.el index 3e68ded62eb..c4a3bd79d0f 100644 --- a/lisp/shell.el +++ b/lisp/shell.el @@ -368,8 +368,9 @@ Otherwise, one argument `-i' is passed to the shell. (if (and xargs-name (boundp xargs-name)) (symbol-value xargs-name) '("-i")))) - (shell-mode))) - (switch-to-buffer "*shell*")) + (shell-mode) + (switch-to-buffer (current-buffer))) + (switch-to-buffer "*shell*"))) ;;; Directory tracking ;;; =========================================================================== -- 2.39.5