[Emacs-diffs] trunk r114260: Silence some url compilation warnings on systems without zlib

[Glenn Morris]

------------------------------------------------------------
revno: 114260
revision-id: address@hidden
parent: address@hidden
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Fri 2013-09-13 00:01:55 -0700
message:
  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.
modified:
  lisp/url/ChangeLog             changelog-20091113204419-o5vbwnq5f7feedwu-3116
  lisp/url/url-http.el           urlhttp.el-20091113204419-o5vbwnq5f7feedwu-2989
  lisp/url/url-vars.el           urlvars.el-20091113204419-o5vbwnq5f7feedwu-3004

=== modified file 'lisp/url/ChangeLog'
--- a/lisp/url/ChangeLog        2013-08-14 13:03:25 +0000
+++ b/lisp/url/ChangeLog        2013-09-13 07:01:55 +0000
@@ -1,3 +1,8 @@
+2013-09-13  Glenn Morris  <address@hidden>
+
+       * url-http.el (url-handle-content-transfer-encoding):
+       * url-vars.el (url-mime-encoding-string): Silence compiler.
+
 2013-08-14  Lars Magne Ingebrigtsen  <address@hidden>
 
        * url-http.el (url-http-parse-headers): Always place point at the

=== modified file 'lisp/url/url-http.el'
--- a/lisp/url/url-http.el      2013-08-14 13:03:25 +0000
+++ b/lisp/url/url-http.el      2013-09-13 07:01:55 +0000
@@ -861,7 +861,7 @@
 (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

=== modified file 'lisp/url/url-vars.el'
--- a/lisp/url/url-vars.el      2013-08-12 17:02:31 +0000
+++ b/lisp/url/url-vars.el      2013-09-13 07:01:55 +0000
@@ -210,7 +210,7 @@
 
 (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.")