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