diff options
| -rw-r--r-- | elisp/geiser-doc.el | 22 |
1 files changed, 9 insertions, 13 deletions
diff --git a/elisp/geiser-doc.el b/elisp/geiser-doc.el index 2fc9f69..3141c59 100644 --- a/elisp/geiser-doc.el +++ b/elisp/geiser-doc.el @@ -200,7 +200,7 @@ With prefix argument, ask for symbol (with completion)." (defun geiser-doc-module (&optional module impl) "Display information about a given module." (interactive) - (let* ((module (geiser-completion--read-module)) + (let* ((module (or module (geiser-completion--read-module))) (children (geiser-doc--get-module-children module)) (impl (or impl geiser-impl--implementation))) (if (not children) @@ -209,18 +209,14 @@ With prefix argument, ask for symbol (with completion)." (erase-buffer) (geiser-doc--insert-title (format "%s" module)) (newline) - (geiser-doc--insert-list "Procedures:" - (cdr (assoc 'procs children)) - module - impl) - (geiser-doc--insert-list "Variables:" - (cdr (assoc 'vars children)) - module - impl) - (geiser-doc--insert-list "Submodules:" - (cdr (assoc 'modules children)) - module - impl) + (dolist (g '(("Procedures:" . procs) + ("Variables:" . vars) + ("Syntax:" . syntax) + ("Submodules:" . modules))) + (geiser-doc--insert-list (car g) + (cdr (assoc (cdr g) children)) + module + impl)) (goto-char (point-min)) (setq geiser-doc--buffer-link (geiser-doc--history-push (geiser-doc--make-link nil module impl)))) |