Commit f0e30fe8 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

parent a6578b63
......@@ -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."
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment