Mercurial > emacs
changeset 9538:5c6da502d9a5
(run-scheme): Set scheme-program-name.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 15 Oct 1994 08:33:11 +0000 |
| parents | f025140f7ff7 |
| children | 164a7cb8d0ea |
| files | lisp/cmuscheme.el |
| diffstat | 1 files changed, 1 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/cmuscheme.el Sat Oct 15 04:49:14 1994 +0000 +++ b/lisp/cmuscheme.el Sat Oct 15 08:33:11 1994 +0000 @@ -234,6 +234,7 @@ (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*"))