From 6287a845e278af6ccb91fe9eb0e073fd913d3b89 Mon Sep 17 00:00:00 2001
From: Jose Antonio Ortega Ruiz <jao@gnu.org>
Date: Fri, 11 Feb 2011 23:00:15 +0100
Subject: [PATCH] Bug fix: M-x geiser-edit-module works again in the REPL

---
 NEWS                 | 1 +
 elisp/geiser-repl.el | 5 ++++-
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/NEWS b/NEWS
index 63202df..0a6e859 100644
--- a/NEWS
+++ b/NEWS
@@ -8,6 +8,7 @@
   Bug fixes:
 
     - Company mode integration fixes (including #32231)
+    - M-x geiser-edit-module in REPL buffers fixed
 
 * Version 0.1.1 (Jan 24, 2011)
 
diff --git a/elisp/geiser-repl.el b/elisp/geiser-repl.el
index 563332c..cbaaf24 100644
--- a/elisp/geiser-repl.el
+++ b/elisp/geiser-repl.el
@@ -418,7 +418,10 @@ module command as a string")
     (let ((beginning-of-defun-function nil))
       (beginning-of-defun))))
 
-(defun geiser-repl--module-function (&optional ignore) :f)
+(defun geiser-repl--module-function (&optional module)
+  (if module
+      (funcall geiser-eval--get-impl-module module)
+      :f))
 
 (defun geiser-repl--doc-module ()
   (interactive)
-- 
2.11.4.GIT