aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorThomas Fitzsimmons2017-05-24 14:58:47 -0400
committerThomas Fitzsimmons2017-05-25 08:49:58 -0400
commita928cfae6046066180a445fab387bb1a57f8395c (patch)
treec39d861306006b1658070acc60342a93538ed976
parent9a6ac2794f6855c3f5882d33deb417aa69e7c471 (diff)
downloademacs-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.el4
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.
2341The previously parsed URL is read from WSDL." 2343The 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))