diff options
author | Sean Allred <code@seanallred.com> | 2014-11-14 17:25:27 -0500 |
---|---|---|
committer | Sean Allred <code@seanallred.com> | 2014-11-14 17:30:21 -0500 |
commit | 1e859ea6d9b5365f69f8dea5d690e6bee8350e7a (patch) | |
tree | 7f7da64a833f8c1c783b6d4977fc79f06d227d1d /sx-request.el | |
parent | 403c021d92bb036be5d95735bc1403056db3780b (diff) | |
parent | 22cc1b1b959761cda2ff2048dbaeba99cc094930 (diff) |
Merge branch 'master' into network-list
Conflicts:
sx-filter.el
sx-question.el
Diffstat (limited to 'sx-request.el')
-rw-r--r-- | sx-request.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/sx-request.el b/sx-request.el index 56362fc..6dc54e7 100644 --- a/sx-request.el +++ b/sx-request.el @@ -41,7 +41,7 @@ "The current version of the API.") (defconst sx-request-api-root - (format "http://api.stackexchange.com/%s/" sx-request-api-version) + (format "https://api.stackexchange.com/%s/" sx-request-api-version) "The base URL to make requests from.") (defcustom sx-request-silent-p @@ -107,15 +107,15 @@ number of requests left every time it finishes a call.") (error "Response could not be read by `json-read-from-string'")) ;; If we get here, the response is a valid data structure (sx-assoc-let response - (when error_id + (when .error_id (error "Request failed: (%s) [%i %s] %S" - method error_id error_name error_message)) + .method .error_id .error_name .error_message)) (when (< (setq sx-request-remaining-api-requests - quota_remaining) + .quota_remaining) sx-request-remaining-api-requests-message-threshold) (sx-message "%d API requests reamining" sx-request-remaining-api-requests)) - items))))))) + (sx-encoding-clean-content-deep .items)))))))) ;;; Support Functions |