From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 16 Aug 1995 14:39:12 +0000 (+0000)
Subject: (run-scheme): Use pop-to-buffer.
X-Git-Tag: emacs-19.34~2994
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f0e30fe8382ef1f6697d69fff214ee7f08bd4043;p=emacs.git

(run-scheme): Use pop-to-buffer.
---

diff --git a/lisp/xscheme.el b/lisp/xscheme.el
index c09f53a89e2..bb017f0c33f 100644
--- a/lisp/xscheme.el
+++ b/lisp/xscheme.el
@@ -89,7 +89,7 @@ With argument, asks for a command line."
 	       (read-string "Run Scheme: " default)
 	       default))))
   (setq xscheme-process-command-line command-line)
-  (switch-to-buffer (xscheme-start-process command-line)))
+  (pop-to-buffer (xscheme-start-process command-line)))
 
 (defun reset-scheme ()
   "Reset the Scheme process."