diff options
| author | Glenn Morris <rgm@gnu.org> | 2013-09-13 00:01:55 -0700 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2013-09-13 00:01:55 -0700 |
| commit | d6a0426625234e201b1df4514fdf735bca614463 (patch) | |
| tree | 24633c62ecebaa94b7ac90aedd2e56d3e540b765 /lisp | |
| parent | 35ffc6ba91d41fab2e370ddb7587ad7fc17bd25b (diff) | |
| download | emacs-d6a0426625234e201b1df4514fdf735bca614463.tar.gz emacs-d6a0426625234e201b1df4514fdf735bca614463.tar.bz2 emacs-d6a0426625234e201b1df4514fdf735bca614463.zip | |
Silence some url compilation warnings on systems without zlib
* url-http.el (url-handle-content-transfer-encoding):
* url-vars.el (url-mime-encoding-string): Silence compiler.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/url/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/url/url-http.el | 2 | ||||
| -rw-r--r-- | lisp/url/url-vars.el | 2 |
3 files changed, 7 insertions, 2 deletions
diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog index 52a69690534..3f48b8ff431 100644 --- a/lisp/url/ChangeLog +++ b/lisp/url/ChangeLog @@ -1,3 +1,8 @@ +2013-09-13 Glenn Morris <rgm@gnu.org> + + * url-http.el (url-handle-content-transfer-encoding): + * url-vars.el (url-mime-encoding-string): Silence compiler. + 2013-08-14 Lars Magne Ingebrigtsen <larsi@gnus.org> * url-http.el (url-http-parse-headers): Always place point at the diff --git a/lisp/url/url-http.el b/lisp/url/url-http.el index 7047e6b5f13..4f9e868c05e 100644 --- a/lisp/url/url-http.el +++ b/lisp/url/url-http.el @@ -861,7 +861,7 @@ should be shown to the user." (defun url-handle-content-transfer-encoding () (let ((encoding (mail-fetch-field "content-encoding"))) (when (and encoding - (fboundp 'zlib-decompress-region) + (fboundp 'zlib-available-p) (zlib-available-p) (equal (downcase encoding) "gzip")) (save-restriction diff --git a/lisp/url/url-vars.el b/lisp/url/url-vars.el index 0361e01dfb4..a34111c27b7 100644 --- a/lisp/url/url-vars.el +++ b/lisp/url/url-vars.el @@ -210,7 +210,7 @@ Should be an assoc list of headers/contents.") (defvar url-request-method nil "The method to use for the next request.") -(defvar url-mime-encoding-string (and (fboundp 'zlib-decompress-region) +(defvar url-mime-encoding-string (and (fboundp 'zlib-available-p) (zlib-available-p) "gzip") "String to send in the Accept-encoding: field in HTTP requests.") |