mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-18 06:01:22 -08:00
Code Issues Projects Releases Wiki Activity

(run-scheme): Set scheme-program-name.

Browse source
This commit is contained in:
Richard M. Stallman 1994-10-15 08:33:11 +00:00
parent 58769bee4d
commit c30b759d47
1 changed files with 1 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
lisp/cmuscheme.el
View file

@ -234,6 +234,7 @@ of scheme-program-name). Runs the hooks from inferior-scheme-mode-hook
(set-buffer (apply 'make-comint "scheme" (car cmdlist)
nil (cdr cmdlist)))
(inferior-scheme-mode)))
(setq scheme-program-name cmd)
(setq scheme-buffer "*scheme*")
(switch-to-buffer "*scheme*"))