diff options
| author | Thomas Fitzsimmons | 2017-05-24 14:58:47 -0400 |
|---|---|---|
| committer | Thomas Fitzsimmons | 2017-05-25 08:49:58 -0400 |
| commit | a928cfae6046066180a445fab387bb1a57f8395c (patch) | |
| tree | c39d861306006b1658070acc60342a93538ed976 | |
| parent | 9a6ac2794f6855c3f5882d33deb417aa69e7c471 (diff) | |
| download | emacs-a928cfae6046066180a445fab387bb1a57f8395c.tar.gz emacs-a928cfae6046066180a445fab387bb1a57f8395c.zip | |
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.
| -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." | |||
| 2336 | (kill-buffer) | 2336 | (kill-buffer) |
| 2337 | (mm-destroy-part mime-part))))) | 2337 | (mm-destroy-part mime-part))))) |
| 2338 | 2338 | ||
| 2339 | (defvar url-http-response-status) | ||
| 2340 | |||
| 2339 | (defun soap-fetch-xml-from-url (url wsdl) | 2341 | (defun soap-fetch-xml-from-url (url wsdl) |
| 2340 | "Load an XML document from URL and return it. | 2342 | "Load an XML document from URL and return it. |
| 2341 | The previously parsed URL is read from WSDL." | 2343 | The previously parsed URL is read from WSDL." |
| @@ -2349,7 +2351,6 @@ The previously parsed URL is read from WSDL." | |||
| 2349 | (setf (soap-wsdl-current-file wsdl) current-file) | 2351 | (setf (soap-wsdl-current-file wsdl) current-file) |
| 2350 | (let ((buffer (url-retrieve-synchronously current-file))) | 2352 | (let ((buffer (url-retrieve-synchronously current-file))) |
| 2351 | (with-current-buffer buffer | 2353 | (with-current-buffer buffer |
| 2352 | (declare (special url-http-response-status)) | ||
| 2353 | (if (> url-http-response-status 299) | 2354 | (if (> url-http-response-status 299) |
| 2354 | (error "Error retrieving WSDL: %s" url-http-response-status)) | 2355 | (error "Error retrieving WSDL: %s" url-http-response-status)) |
| 2355 | (soap-parse-server-response))))) | 2356 | (soap-parse-server-response))))) |
| @@ -3073,7 +3074,6 @@ OPERATION-NAME and PARAMETERS are as described in `soap-invoke'." | |||
| 3073 | (soap-port-service-url port)))) | 3074 | (soap-port-service-url port)))) |
| 3074 | (condition-case err | 3075 | (condition-case err |
| 3075 | (with-current-buffer buffer | 3076 | (with-current-buffer buffer |
| 3076 | (declare (special url-http-response-status)) | ||
| 3077 | (if (null url-http-response-status) | 3077 | (if (null url-http-response-status) |
| 3078 | (error "No HTTP response from server")) | 3078 | (error "No HTTP response from server")) |
| 3079 | (if (and soap-debug (> url-http-response-status 299)) | 3079 | (if (and soap-debug (> url-http-response-status 299)) |