Mercurial > emacs

changeset 10570:7716de3fb4b6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(shell): If we create a new shell buffer, select that buffer even if it has been renamed.
author Richard M. Stallman <rms@gnu.org>
date Fri, 27 Jan 1995 22:37:16 +0000
parents fa604ffe7e3f
children 0bd8034a4f54
files lisp/shell.el
diffstat 1 files changed, 3 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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
 ;;; ===========================================================================