diff options
| -rw-r--r-- | Cask | 1 | ||||
| -rw-r--r-- | stack-core.el | 8 |
2 files changed, 7 insertions, 2 deletions
@@ -6,6 +6,7 @@ (files "stack-*.el") (depends-on "json" "1.4") +(depends-on "url") (development (depends-on "ert")) diff --git a/stack-core.el b/stack-core.el index 16a20c9..03a3afa 100644 --- a/stack-core.el +++ b/stack-core.el @@ -150,6 +150,7 @@ optional KEYWORD-ARGUMENTS. If no KEYWORD-ARGUMENTS are given, `stack-core-default-keyword-arguments-alist' is used. Return the entire response as a complex alist." (let ((url-automatic-caching stack-core-cache-requests) + (url-inhibit-uncompression t) (call (stack-core-build-request method @@ -160,8 +161,11 @@ entire response as a complex alist." ;; TODO: url-retrieve-synchronously can return nil if the call is ;; unsuccessful should handle this case (unless silent (stack-message "Request: %S" call)) - (let ((response-buffer (url-retrieve-synchronously - call silent))) + (let ((response-buffer (cond + ((= emacs-minor-version 4) + (url-retrieve-synchronously call silent)) + ((= emacs-minor-version 3) + (url-retrieve-synchronously call))))) (if (not response-buffer) (error "Something went wrong in `url-retrieve-synchronously'") (with-current-buffer response-buffer |