Commits

sperber-guest  committed 22c5c13

2009-10-21 Marcus Crestani <marcus@crestani.de>

* cmuscheme.el (run-scheme): Initialize `scheme-program-name' and
`scheme-program-args' before calling `inferior-scheme-mode'. This
allows using them in hooks.

  • Participants
  • Parent commits a86c1db

Comments (0)

Files changed (2)

+2009-10-21  Marcus Crestani <marcus@crestani.de>
+
+	* cmuscheme.el (run-scheme): Initialize `scheme-program-name' and
+	`scheme-program-args' before calling `inferior-scheme-mode'.  This
+	allows using them in hooks.
+
 2007-12-28  Norbert Koch  <viteno@xemacs.org>
 
 	* Makefile (VERSION): XEmacs package 1.17 released.

File cmuscheme.el

 			   (read-string "Command-line arguments: " 
 					(scheme-list-to-args scheme-program-args)))
 			scheme-program-args)))
+  (setq scheme-program-name cmd)
+  (setq scheme-program-args args)
   (if (not (comint-check-proc "*scheme*"))
       (progn
 	(set-buffer (apply 'make-comint "scheme" cmd
 			   nil args))
 	(inferior-scheme-mode)))
-  (setq scheme-program-name cmd)
-  (setq scheme-program-args args)
   (setq scheme-buffer "*scheme*")
   (pop-to-buffer "*scheme*"))
 ;;; *don't* ;;;###autoload (add-hook 'same-window-buffer-names "*scheme*")