Commit a928cfae authored by Thomas Fitzsimmons's avatar Thomas Fitzsimmons
Browse files

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.
parent 9a6ac279
......@@ -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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment