From 49aca643da436c7f33d55bb1fb8304e2fbdc842b 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: 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)
--
cgit v1.2.3