From c30b759d47de447ec79d721aeb5c766919f15e10 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 15 Oct 1994 08:33:11 +0000 Subject: [PATCH] (run-scheme): Set scheme-program-name. --- lisp/cmuscheme.el | 1 + 1 file changed, 1 insertion(+) 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*")) -- 2.39.5