From: Thomas Fitzsimmons <fitzsim@fitzsim.org>
Date: Wed, 24 May 2017 18:58:47 +0000 (-0400)
Subject: Fix two soap-client.el byte compilation warnings
X-Git-Tag: emacs-26.0.90~521^2~269
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a928cfae6046066180a445fab387bb1a57f8395c;p=emacs.git

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.
---

diff --git a/lisp/net/soap-client.el b/lisp/net/soap-client.el
index e204b8aff92..0efbccd265f 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))