From 23d25719deb31694f12750a638872a175aae0419 Mon Sep 17 00:00:00 2001 From: Sean Allred Date: Tue, 18 Nov 2014 23:15:55 -0500 Subject: Documentation -- part three Source code is documented to the best of my knowledge and understanding. --- sx-question.el | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) (limited to 'sx-question.el') diff --git a/sx-question.el b/sx-question.el index 0342479..827b7c3 100644 --- a/sx-question.el +++ b/sx-question.el @@ -58,17 +58,18 @@ Return a list of questions, each consed with (site SITE). (page . ,page)) sx-question-browse-filter))) -(defun sx-question-get-question (site id) - "Query SITE for a question ID and return it. +(defun sx-question-get-question (site question-id) + "Query SITE for a QUESTION-ID and return it. -If ID doesn't exist on SITE, raise an error." +If QUESTION-ID doesn't exist on SITE, raise an error." (let ((res (sx-method-call - (format "questions/%s" id) + (format "questions/%s" question-id) `((site . ,site)) sx-question-browse-filter))) (if (vectorp res) (elt res 0) - (error "Couldn't find question %S in %S" id site)))) + (error "Couldn't find question %S in %S" + question-id site)))) ;;; Question Properties -- cgit v1.2.3