diff options
| author | Sean Allred <code@seanallred.com> | 2014-11-18 23:15:55 -0500 |
|---|---|---|
| committer | Sean Allred <code@seanallred.com> | 2014-11-18 23:15:55 -0500 |
| commit | 23d25719deb31694f12750a638872a175aae0419 (patch) | |
| tree | 81bb729b4c5bda6392edba2b741b6d677132a7f9 /sx-question.el | |
| parent | 11b698a4c750c379a8c0d4d843744913e931d3fe (diff) | |
Documentation -- part three
Source code is documented to the best of my knowledge and understanding.
Diffstat (limited to 'sx-question.el')
| -rw-r--r-- | sx-question.el | 11 |
1 files changed, 6 insertions, 5 deletions
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 |