diff options
| -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*")) |