# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 791246236 0
# Node ID 7716de3fb4b6ac65c287ff5ad8f15af7e6407811
# Parent  fa604ffe7e3f5b5d8ae602de9814220c74b2b084
(shell): If we create a new shell buffer,
select that buffer even if it has been renamed.

diff -r fa604ffe7e3f -r 7716de3fb4b6 lisp/shell.el
--- a/lisp/shell.el	Fri Jan 27 20:47:20 1995 +0000
+++ b/lisp/shell.el	Fri Jan 27 22:37:16 1995 +0000
@@ -368,8 +368,9 @@
 			   (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
 ;;; ===========================================================================