From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 15 Oct 1994 08:33:11 +0000 (+0000)
Subject: (run-scheme): Set scheme-program-name.
X-Git-Tag: emacs-19.34~6316
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c30b759d47de447ec79d721aeb5c766919f15e10;p=emacs.git

(run-scheme): Set scheme-program-name.
---

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