summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2009-05-25 23:18:55 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2009-05-25 23:18:55 +0200
commit616e3174c60fc41b53c40f404cc2263de9cbfad9 (patch)
tree36c0bd893f15ba9c2500d4d4d8ec75e11c77c42f
parentcfacb7d21ef5cd4eb73dc0b86511a0e32b82b553 (diff)
downloadgeiser-616e3174c60fc41b53c40f404cc2263de9cbfad9.tar.gz
geiser-616e3174c60fc41b53c40f404cc2263de9cbfad9.tar.bz2
module-children -> module-exports.
-rw-r--r--elisp/geiser-doc.el10
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))