From d4b72988d8b04d2bf389660f69300b02441d1b1c Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Mon, 25 May 2009 03:36:51 +0200 Subject: Bug fix and a bit of refactoring in geiser-doc.el. --- elisp/geiser-doc.el | 22 +++++++++------------- 1 file changed, 9 insertions(+), 13 deletions(-) (limited to 'elisp') 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)))) -- cgit v1.2.3