From 19acc6507f535b5a3513c087a3547ed51e597c0e Mon Sep 17 00:00:00 2001
From: Jose Antonio Ortega Ruiz <jao@gnu.org>
Date: Sun, 7 Mar 2010 05:16:20 +0100
Subject: New command to switch to REPL and put it in current module.

---
 elisp/geiser-guile.el | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/elisp/geiser-guile.el b/elisp/geiser-guile.el
index 89b80d7..13fdc49 100644
--- a/elisp/geiser-guile.el
+++ b/elisp/geiser-guile.el
@@ -89,6 +89,9 @@ This function uses `geiser-guile-init-file' if it exists."
          (or (ignore-errors (car (read-from-string module))) :f))
         (t :f)))
 
+(defun geiser-guile--enter-command (module)
+  (and module (format ",m %s\n" (geiser-guile--get-module module))))
+
 (defun geiser-guile--symbol-begin (module)
   (if module
       (max (save-excursion (beginning-of-line) (point))
@@ -154,6 +157,7 @@ This function uses `geiser-guile-init-file' if it exists."
 ;;; Implementation definition:
 
 (define-geiser-implementation guile
+  (unsupported-procedures '(enter-command))
   (binary geiser-guile--binary)
   (arglist geiser-guile--parameters)
   (startup geiser-guile--startup)
@@ -161,6 +165,7 @@ This function uses `geiser-guile-init-file' if it exists."
   (debugger-prompt-regexp geiser-guile--debugger-prompt-regexp)
   (marshall-procedure geiser-guile--geiser-procedure)
   (find-module geiser-guile--get-module)
+  ;; (enter-command geiser-guile--enter-command)
   (find-symbol-begin geiser-guile--symbol-begin)
   (display-error geiser-guile--display-error)
   (display-help)
-- 
cgit v1.2.3