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 | c30b759d47de447ec79d721aeb5c766919f15e10 (patch) | |
| tree | 782fc1ac4e136c215f9bb907f5f77e261843758c /lisp/cmuscheme.el | |
| parent | 58769bee4dd24a08492658cbae306af4ffdc7f95 (diff) | |
| download | emacs-c30b759d47de447ec79d721aeb5c766919f15e10.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*")) |