Mercurial > emacs

changeset 10975:5abad4aec8e0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(shell): Use pop-to-buffer. (same-window-buffer-names): Add *shell* to the list.
author Richard M. Stallman <rms@gnu.org>
date Sun, 12 Mar 1995 09:39:49 +0000
parents 4ef3ef45089f
children 354c9e79de15
files lisp/shell.el
diffstat 1 files changed, 15 insertions(+), 9 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/shell.el	Sun Mar 12 09:15:08 1995 +0000
+++ b/lisp/shell.el	Sun Mar 12 09:39:49 1995 +0000
@@ -365,15 +365,21 @@
 		       "/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
 ;;; ===========================================================================