# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 808583952 0
# Node ID 4ce524de750f939ad3432356ef861cc449b1c7d3
# Parent  aa38412bf76e94cf787d16e33c377310fcbb1cb1
(run-scheme): Use pop-to-buffer.

diff -r aa38412bf76e -r 4ce524de750f lisp/xscheme.el
--- a/lisp/xscheme.el	Wed Aug 16 14:20:19 1995 +0000
+++ b/lisp/xscheme.el	Wed Aug 16 14:39:12 1995 +0000
@@ -89,7 +89,7 @@
 	       (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."