diff options
| -rw-r--r-- | elisp/geiser-doc.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/elisp/geiser-doc.el b/elisp/geiser-doc.el index d73ce6d..8024239 100644 --- a/elisp/geiser-doc.el +++ b/elisp/geiser-doc.el @@ -167,8 +167,8 @@ (defun geiser-doc--get-docstring (symbol module) (geiser-eval--send/result `(:eval ((:ge symbol-documentation) ',symbol) ,module))) -(defun geiser-doc--get-module-children (module) - (geiser-eval--send/result `(:eval ((:ge module-children) (:module ,module))))) +(defun geiser-doc--get-module-exports (module) + (geiser-eval--send/result `(:eval ((:ge module-exports) (:module ,module))))) (defun geiser-doc-symbol (symbol &optional module impl) (let ((module (or module (geiser-eval--get-module)))) @@ -201,9 +201,9 @@ With prefix argument, ask for symbol (with completion)." "Display information about a given module." (interactive) (let* ((module (or module (geiser-completion--read-module))) - (children (geiser-doc--get-module-children module)) + (exports (geiser-doc--get-module-exports module)) (impl (or impl geiser-impl--implementation))) - (if (not children) + (if (not exports) (message "No information available for %s" module) (geiser-doc--with-buffer (erase-buffer) @@ -214,7 +214,7 @@ With prefix argument, ask for symbol (with completion)." ("Syntax:" . syntax) ("Submodules:" . modules))) (geiser-doc--insert-list (car g) - (cdr (assoc (cdr g) children)) + (cdr (assoc (cdr g) exports)) module impl)) (goto-char (point-min)) |