diff options
| author | Richard M. Stallman | 1994-10-15 08:33:11 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-10-15 08:33:11 +0000 |
| commit | c30b759d47de447ec79d721aeb5c766919f15e10 (patch) | |
| tree | 782fc1ac4e136c215f9bb907f5f77e261843758c | |
| parent | 58769bee4dd24a08492658cbae306af4ffdc7f95 (diff) | |
| download | emacs-c30b759d47de447ec79d721aeb5c766919f15e10.tar.gz emacs-c30b759d47de447ec79d721aeb5c766919f15e10.zip | |
(run-scheme): Set scheme-program-name.
| -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 | |||
| 234 | (set-buffer (apply 'make-comint "scheme" (car cmdlist) | 234 | (set-buffer (apply 'make-comint "scheme" (car cmdlist) |
| 235 | nil (cdr cmdlist))) | 235 | nil (cdr cmdlist))) |
| 236 | (inferior-scheme-mode))) | 236 | (inferior-scheme-mode))) |
| 237 | (setq scheme-program-name cmd) | ||
| 237 | (setq scheme-buffer "*scheme*") | 238 | (setq scheme-buffer "*scheme*") |
| 238 | (switch-to-buffer "*scheme*")) | 239 | (switch-to-buffer "*scheme*")) |
| 239 | 240 | ||