[Emacs-diffs] master a928cfa 4/6: Fix two soap-client.el byte compilation warnings

[Thomas Fitzsimmons]

branch: master
commit a928cfae6046066180a445fab387bb1a57f8395c
Author: Thomas Fitzsimmons <address@hidden>
Commit: Thomas Fitzsimmons <address@hidden>

    Fix two soap-client.el byte compilation warnings
    
    * lisp/net/soap-client.el (url-http-response-status): Add defvar.
    (soap-fetch-xml-from-url): Remove special declaration of
    url-http-response-status.
    (soap-invoke-internal): Likewise.
---
 lisp/net/soap-client.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lisp/net/soap-client.el b/lisp/net/soap-client.el
index e204b8a..0efbccd 100644
--- a/lisp/net/soap-client.el
+++ b/lisp/net/soap-client.el
@@ -2336,6 +2336,8 @@ traverse an element tree."
         (kill-buffer)
         (mm-destroy-part mime-part)))))
 
+(defvar url-http-response-status)
+
 (defun soap-fetch-xml-from-url (url wsdl)
   "Load an XML document from URL and return it.
 The previously parsed URL is read from WSDL."
@@ -2349,7 +2351,6 @@ The previously parsed URL is read from WSDL."
     (setf (soap-wsdl-current-file wsdl) current-file)
     (let ((buffer (url-retrieve-synchronously current-file)))
       (with-current-buffer buffer
-        (declare (special url-http-response-status))
         (if (> url-http-response-status 299)
             (error "Error retrieving WSDL: %s" url-http-response-status))
         (soap-parse-server-response)))))
@@ -3073,7 +3074,6 @@ OPERATION-NAME and PARAMETERS are as described in 
`soap-invoke'."
                        (soap-port-service-url port))))
           (condition-case err
               (with-current-buffer buffer
-                (declare (special url-http-response-status))
                 (if (null url-http-response-status)
                     (error "No HTTP response from server"))
                 (if (and soap-debug (> url-http-response-status 299))