[nongnu] elpa/geiser-racket 32ae602 052/191: Elisp support for inferior schemes

[Philip Kaludercic]

branch: elpa/geiser-racket
commit 32ae6023149a99f5b64c0cae0e8b2cc2c8fbfa2d
Author: Jose Antonio Ortega Ruiz <jao@gnu.org>
Commit: Jose Antonio Ortega Ruiz <jao@gnu.org>

    Elisp support for inferior schemes
---
 elisp/geiser-racket.el | 3 +++
 1 file changed, 3 insertions(+)

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)