s/pr-alist/commit-alist/

Author: charignon

github-review.el

@@ -192,15 +192,15 @@ return a deferred object"
       (github-review-get-pr-object pr-alist (apply-partially (lambda (d v &rest _)  (deferred:callback-post d v)) d)))
     d))
 
-(defun github-review-get-commit-deferred (pr-alist needs-diff)
+(defun github-review-get-commit-deferred (commit-alist needs-diff)
   "Get a commit or its diff.
-PR-ALIST is an alist representing a PR,
+COMMIT-ALIST is an alist representing a PR,
 NEEDS-DIFF t to return a diff nil to return the pr object
 return a deferred object"
   (let ((d (deferred:new #'identity)))
     (if needs-diff
-        (github-review-get-commit-diff pr-alist (apply-partially (lambda (d v &rest _)  (deferred:callback-post d v)) d))
-      (github-review-get-commit-object pr-alist (apply-partially (lambda (d v &rest _)  (deferred:callback-post d v)) d)))
+        (github-review-get-commit-diff commit-alist (apply-partially (lambda (d v &rest _)  (deferred:callback-post d v)) d))
+      (github-review-get-commit-object commit-alist (apply-partially (lambda (d v &rest _)  (deferred:callback-post d v)) d)))
     d))
 
 (defun github-review-post-review-commit (commit-alist review callback)
@@ -688,24 +688,24 @@ See ‘github-review-start’ for more information"
       (lambda (err)
         (message "Got an error from the GitHub API %s!" err)))))
 
-(defun github-review-get-commit-comments (pr-alist callback)
+(defun github-review-get-commit-comments (commit-alist callback)
   "Get the top level comments on a PR.
-PR-ALIST is an alist representing a PR
+COMMIT-ALIST is an alist representing a PR
 CALLBACK will be called back when done"
-  (ghub-get (github-review-format-commit-url 'get-commit-comments pr-alist)
+  (ghub-get (github-review-format-commit-url 'get-commit-comments commit-alist)
             nil
             :auth 'github-review
-            :host (github-review-api-host pr-alist)
+            :host (github-review-api-host commit-alist)
             :errorback (lambda (&rest _) (message "Error talking to GitHub"))
             :callback callback))
 
-(defun github-review-get-commit-comments-deferred (pr-alist)
+(defun github-review-get-commit-comments-deferred (commit-alist)
   "Get the top level comments on a PR.
-PR-ALIST is an alist representing a PR
+COMMIT-ALIST is an alist representing a PR
 CALLBACK will be called back when done
 return a deferred object"
   (let ((d (deferred:new #'identity)))
-    (github-review-get-commit-comments pr-alist (apply-partially (lambda (d v &rest _)  (deferred:callback-post d v)) d)) d))
+    (github-review-get-commit-comments commit-alist (apply-partially (lambda (d v &rest _)  (deferred:callback-post d v)) d)) d))
 
 
 ;;;###autoload