diff options
author | Sean Allred <code@seanallred.com> | 2015-01-03 22:21:57 -0500 |
---|---|---|
committer | Sean Allred <code@seanallred.com> | 2015-01-03 22:21:57 -0500 |
commit | 37e05282fa3d6c9c85e75d9b1768c67b8e2afbd9 (patch) | |
tree | bddcc929e5a3aad70e95660ce7d8376e187c35da | |
parent | 09d018763d8b3cd89c56e1b50fbd8af88cd9addb (diff) |
Remove superfluous local variable
-rw-r--r-- | sx-method.el | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/sx-method.el b/sx-method.el index 8fa30c9..6288cbb 100644 --- a/sx-method.el +++ b/sx-method.el @@ -104,8 +104,7 @@ Return the entire response as a complex alist." (cond ((eq get-all t) #'sx-request-all-stop-when-no-more) (get-all get-all) - (t nil))) - parameters) + (t nil)))) (lwarn "sx-call-method" :debug "A: %S T: %S. M: %S,%s. F: %S" (equal 'warn auth) access-token method-auth full-method filter-auth) (unless access-token @@ -124,15 +123,15 @@ Return the entire response as a complex alist." ((and (or filter-auth method-auth) (not auth)) (error "This request requires authentication.")))) ;; Concatenate all parameters now that filter is ensured. - (setq parameters + (setq keywords (cons (cons 'filter (sx-filter-get-var filter)) keywords)) (when site ;; @TODO: Maybe use `push' instead? - (setq parameters (cons (cons 'site site) parameters))) + (setq keywords (cons (cons 'site site) keywords))) (funcall call full-method - parameters + keywords url-method (if get-all get-all-stop-when |