diff options
author | Thomas Fitzsimmons <fitzsim@fitzsim.org> | 2017-05-24 14:58:47 -0400 |
---|---|---|
committer | Thomas Fitzsimmons <fitzsim@fitzsim.org> | 2017-05-25 08:49:58 -0400 |
commit | a928cfae6046066180a445fab387bb1a57f8395c (patch) | |
tree | c39d861306006b1658070acc60342a93538ed976 /lisp/net/soap-client.el | |
parent | 9a6ac2794f6855c3f5882d33deb417aa69e7c471 (diff) | |
download | emacs-a928cfae6046066180a445fab387bb1a57f8395c.tar.gz |
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.
Diffstat (limited to 'lisp/net/soap-client.el')
-rw-r--r-- | lisp/net/soap-client.el | 4 |
1 files changed, 2 insertions, 2 deletions
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)) |