From 6006120614c6f6a56a62f999c38a7c638e6b1c6d Mon Sep 17 00:00:00 2001 From: Tom Willemse Date: Sat, 28 Dec 2013 17:03:16 +0100 Subject: [PATCH] Micro refactor --- edocs.el | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) diff --git a/edocs.el b/edocs.el index 6cd0db6..46d7c8a 100644 --- a/edocs.el +++ b/edocs.el @@ -166,6 +166,13 @@ See the docstring for `edocs--module-name' for more information." (package-desc-summary package-info) (aref package-info 2))) +(defun edocs--normalize (docs) + "Make sure DOCS is a properly formatted list." + (if (or (not (listp docs)) + (not (listp (cdr docs)))) + (list docs) + docs)) + (defun edocs--format-symbol (symbol) "Format the information in SYMBOL." (let ((docs (edocs--get-docs (car symbol) (cdr symbol)))) @@ -182,10 +189,7 @@ See the docstring for `edocs--module-name' for more information." (edocs--with-tag "p" nil (insert (or (edocs--format-doc doc) "Not documented.")))))) - (if (or (not (listp docs)) - (not (listp (cdr docs)))) - (list docs) - docs)))) + (edocs--normalize docs)))) (defun edocs-generate () "Generate nice-looking documentation for a module or file."