From 6dd1f3a7d361314f8979f9ab70525f94a41708c9 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 16 Aug 1995 14:39:12 +0000 Subject: (run-scheme): Use pop-to-buffer. --- lisp/xscheme.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'lisp/xscheme.el') 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." -- cgit v1.2.1