summaryrefslogtreecommitdiff
path: root/elisp/geiser-doc.el
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2009-03-13 02:02:40 +0100
committerJose Antonio Ortega Ruiz <jao@gnu.org>2009-03-13 02:02:40 +0100
commit137d2e0db5efe444f6f208aba8ebd57584f1ee52 (patch)
treeaebb89305d9adf5305bef9a9668c653c71d45372 /elisp/geiser-doc.el
parent7196cb2405c2773f394954904b63765fb9f95e8b (diff)
downloadgeiser-guile-137d2e0db5efe444f6f208aba8ebd57584f1ee52.tar.gz
geiser-guile-137d2e0db5efe444f6f208aba8ebd57584f1ee52.tar.bz2
Module documentation command works again when invoked from the REPL.
Diffstat (limited to 'elisp/geiser-doc.el')
-rw-r--r--elisp/geiser-doc.el11
1 files changed, 6 insertions, 5 deletions
diff --git a/elisp/geiser-doc.el b/elisp/geiser-doc.el
index 1bf9725..34ed832 100644
--- a/elisp/geiser-doc.el
+++ b/elisp/geiser-doc.el
@@ -189,13 +189,14 @@ With prefix argument, ask for symbol (with completion)."
(when symbol (geiser-doc-symbol symbol))))
-(defun geiser-doc-module (module &optional impl)
+(defun geiser-doc-module (&optional module impl)
"Display information about a given module."
- (interactive (list (geiser-completion--read-module)))
- (let ((children (geiser-doc--get-module-children module))
- (impl (or impl geiser-impl--implementation)))
+ (interactive)
+ (let* ((module (geiser-completion--read-module))
+ (children (geiser-doc--get-module-children module))
+ (impl (or impl geiser-impl--implementation)))
(if (not children)
- (message "No info available for %s" module)
+ (message "No information available for %s" module)
(geiser-doc--with-buffer
(erase-buffer)
(geiser-doc--insert-title (format "%s" module))