From 349a5b097bef1b204f1b8e76dbe6d1d7633d83c0 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 16 Aug 1995 14:39:29 +0000 Subject: [PATCH] (run-scheme): Use pop-to-buffer. Add *scheme* to same-window-buffer-names. --- lisp/cmuscheme.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/lisp/cmuscheme.el b/lisp/cmuscheme.el index b2781085bae..3a3cd0bb07f 100644 --- a/lisp/cmuscheme.el +++ b/lisp/cmuscheme.el @@ -185,10 +185,10 @@ Defaults to a regexp ignoring all inputs of 0, 1, or 2 letters.") ;;;###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 @@ of scheme-program-name). Runs the hooks from inferior-scheme-mode-hook (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." -- 2.39.2