From d773c05503659047f35878bd745568ce04078148 Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Thu, 11 Nov 2010 03:31:15 +0100 Subject: Elisp support for inferior schemes --- elisp/geiser-racket.el | 3 +++ 1 file changed, 3 insertions(+) (limited to 'elisp/geiser-racket.el') diff --git a/elisp/geiser-racket.el b/elisp/geiser-racket.el index c680907..4152a22 100644 --- a/elisp/geiser-racket.el +++ b/elisp/geiser-racket.el @@ -84,6 +84,8 @@ This function uses `geiser-racket-init-file' if it exists." (defconst geiser-racket--prompt-regexp "^=?\\(mzscheme\\|racket\\)@[^ ]*?> ") +(defconst geiser-racket--init-server-cmd ",start-geiser") + ;;; Evaluation support: @@ -241,6 +243,7 @@ using start-geiser, a procedure in the geiser/server module." (unsupported-procedures '(callers callees generic-methods)) (binary geiser-racket--binary) (arglist geiser-racket--parameters) + (init-server-cmd geiser-racket--init-server-cmd) (startup) (prompt-regexp geiser-racket--prompt-regexp) (marshall-procedure geiser-racket--geiser-procedure) -- cgit v1.2.3