Mercurial > emacs
changeset 12867:26e4b5392530
(run-scheme): Use pop-to-buffer.
Add *scheme* to same-window-buffer-names.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 16 Aug 1995 14:39:29 +0000 |
| parents | 4ce524de750f |
| children | 8c777db02099 |
| files | lisp/cmuscheme.el |
| diffstat | 1 files changed, 5 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/cmuscheme.el Wed Aug 16 14:39:12 1995 +0000 +++ b/lisp/cmuscheme.el Wed Aug 16 14:39:29 1995 +0000 @@ -185,10 +185,10 @@ ;;;###autoload (defun run-scheme (cmd) "Run an inferior Scheme process, input and output via buffer *scheme*. -If there is a process already running in *scheme*, just switch to that buffer. +If there is a process already running in `*scheme*', switch to that buffer. With argument, allows you to edit the command line (default is value -of scheme-program-name). Runs the hooks from inferior-scheme-mode-hook -\(after the comint-mode-hook is run). +of `scheme-program-name'). Runs the hooks `inferior-scheme-mode-hook' +\(after the `comint-mode-hook' is run). \(Type \\[describe-mode] in the process buffer for a list of commands.)" (interactive (list (if current-prefix-arg @@ -201,8 +201,8 @@ (inferior-scheme-mode))) (setq scheme-program-name cmd) (setq scheme-buffer "*scheme*") - (switch-to-buffer "*scheme*")) - + (pop-to-buffer "*scheme*")) +;;;###autoload (add-hook 'same-window-buffer-names "*scheme*") (defun scheme-send-region (start end) "Send the current region to the inferior Scheme process."