# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 782209991 0
# Node ID 5c6da502d9a5f2c1df46ff2d5d394fe962e0ef42
# Parent  f025140f7ff76460f959aea0b95416ffb7e9feb6
(run-scheme): Set scheme-program-name.

diff -r f025140f7ff7 -r 5c6da502d9a5 lisp/cmuscheme.el
--- 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*"))