diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-10-15 08:33:11 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-10-15 08:33:11 +0000 |
| commit | 913d30e02f4277307a287f10f941a84d8ddb9248 (patch) | |
| tree | c2e3e07e7206f8addb778f76ee130cf7213beff1 /lisp/cmuscheme.el | |
| parent | 82a599b865d5a07fd3bce193f59178033c428b1e (diff) | |
| download | emacs-913d30e02f4277307a287f10f941a84d8ddb9248.tar.gz | |
(run-scheme): Set scheme-program-name.
Diffstat (limited to 'lisp/cmuscheme.el')
| -rw-r--r-- | lisp/cmuscheme.el | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lisp/cmuscheme.el b/lisp/cmuscheme.el index cc09c81b23b..68a1bae4145 100644 --- a/lisp/cmuscheme.el +++ b/lisp/cmuscheme.el @@ -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*")) |