From a7d5b74b8fcda5952da0557bcd5d3cbb45fc6403 Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Sun, 7 Mar 2010 05:16:20 +0100 Subject: New command to switch to REPL and put it in current module. --- elisp/geiser-plt.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'elisp/geiser-plt.el') diff --git a/elisp/geiser-plt.el b/elisp/geiser-plt.el index d9b3ca9..c808ed5 100644 --- a/elisp/geiser-plt.el +++ b/elisp/geiser-plt.el @@ -109,6 +109,9 @@ This function uses `geiser-plt-init-file' if it exists." (defun geiser-plt--symbol-begin (module) (save-excursion (skip-syntax-backward "^-()>") (point))) +(defun geiser-plt--enter-command (module) + (and (stringp module) (format "(enter! (file %S))" module))) + ;;; External help @@ -169,13 +172,14 @@ This function uses `geiser-plt-init-file' if it exists." ;;; Implementation definition: (define-geiser-implementation plt + (unsupported-procedures '(callers callees generic-methods)) (binary geiser-plt--binary) (arglist geiser-plt--parameters) (startup) - (unsupported-procedures '(callers callees generic-methods)) (prompt-regexp geiser-plt--prompt-regexp) (marshall-procedure geiser-plt--geiser-procedure) (find-module geiser-plt--get-module) + (enter-command geiser-plt--enter-command) (find-symbol-begin geiser-plt--symbol-begin) (display-error geiser-plt--display-error) (display-help geiser-plt--external-help) -- cgit v1.2.3