mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases 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
Show Stats 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*"))