Mercurial > emacs

diff lisp/cmuscheme.el @ 9538:5c6da502d9a5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(run-scheme): Set scheme-program-name.
author Richard M. Stallman <rms@gnu.org>
date Sat, 15 Oct 1994 08:33:11 +0000
parents eee647e8ca9e
children 2bee58e79145
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*"))