mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
Add *scheme* to same-window-buffer-names.
This commit is contained in:
Richard M. Stallman 1995-08-16 14:39:29 +00:00
parent f0e30fe838
commit 349a5b097b
1 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lisp/cmuscheme.el
View file

@ -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."