diff options
| author | Sean Allred <code@seanallred.com> | 2015-01-02 01:06:04 -0500 |
|---|---|---|
| committer | Sean Allred <code@seanallred.com> | 2015-01-02 01:06:04 -0500 |
| commit | f3bc9b692da7305acec568122992ee62dca45496 (patch) | |
| tree | f0a53894d943098d30f739bfaaa380f4d6420c01 /sx-request.el | |
| parent | 27eb38cfc4bba9013e8454bbe81ce497bf224474 (diff) | |
Consolidate state changes
Diffstat (limited to 'sx-request.el')
| -rw-r--r-- | sx-request.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/sx-request.el b/sx-request.el index 387bde5..f9b93ea 100644 --- a/sx-request.el +++ b/sx-request.el @@ -114,11 +114,11 @@ access the response wrapper." (sx-request-make method `((page . ,current-page) ,@args) request-method process-function))) (while (not (funcall stop-when response)) - (setq return-value + (setq current-page (1+ current-page) + return-value (vconcat return-value (cdr (assoc 'items response)))) - (setq current-page (1+ current-page) - response + (setq response (sx-request-make method `((page . ,current-page) ,@args) request-method process-function))) (vconcat return-value |