diff options
| author | Richard M. Stallman | 1995-08-16 14:39:12 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1995-08-16 14:39:12 +0000 |
| commit | f0e30fe8382ef1f6697d69fff214ee7f08bd4043 (patch) | |
| tree | f54d446e6f8785211bcf543eeef98e0c6091455c | |
| parent | a6578b63d2b749400f2fa53b8f6ebec4dc74df75 (diff) | |
| download | emacs-f0e30fe8382ef1f6697d69fff214ee7f08bd4043.tar.gz emacs-f0e30fe8382ef1f6697d69fff214ee7f08bd4043.zip | |
(run-scheme): Use pop-to-buffer.
| -rw-r--r-- | lisp/xscheme.el | 2 |
1 files changed, 1 insertions, 1 deletions
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." | |||
| 89 | (read-string "Run Scheme: " default) | 89 | (read-string "Run Scheme: " default) |
| 90 | default)))) | 90 | default)))) |
| 91 | (setq xscheme-process-command-line command-line) | 91 | (setq xscheme-process-command-line command-line) |
| 92 | (switch-to-buffer (xscheme-start-process command-line))) | 92 | (pop-to-buffer (xscheme-start-process command-line))) |
| 93 | 93 | ||
| 94 | (defun reset-scheme () | 94 | (defun reset-scheme () |
| 95 | "Reset the Scheme process." | 95 | "Reset the Scheme process." |