diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-03-13 02:02:40 +0100 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-03-13 02:02:40 +0100 |
| commit | 137d2e0db5efe444f6f208aba8ebd57584f1ee52 (patch) | |
| tree | aebb89305d9adf5305bef9a9668c653c71d45372 /elisp/geiser-doc.el | |
| parent | 7196cb2405c2773f394954904b63765fb9f95e8b (diff) | |
| download | geiser-chez-137d2e0db5efe444f6f208aba8ebd57584f1ee52.tar.gz geiser-chez-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.el | 11 |
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)) |