diff options
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 f6d2ba229e5..544f0286834 100644 --- a/lisp/net/soap-client.el +++ b/lisp/net/soap-client.el | |||
| @@ -3194,7 +3194,7 @@ OPERATION-NAME and PARAMETERS are as described in `soap-invoke'." | |||
| 3194 | (unwind-protect | 3194 | (unwind-protect |
| 3195 | (let ((error-status (plist-get status :error))) | 3195 | (let ((error-status (plist-get status :error))) |
| 3196 | (if error-status | 3196 | (if error-status |
| 3197 | (signal (car error-status) (cdr error-status)) | 3197 | (signal error-status) |
| 3198 | (apply callback | 3198 | (apply callback |
| 3199 | (soap-parse-envelope | 3199 | (soap-parse-envelope |
| 3200 | (soap-parse-server-response) | 3200 | (soap-parse-server-response) |
| @@ -3221,7 +3221,7 @@ OPERATION-NAME and PARAMETERS are as described in `soap-invoke'." | |||
| 3221 | ;; Propagate soap-errors -- they are error replies of the | 3221 | ;; Propagate soap-errors -- they are error replies of the |
| 3222 | ;; SOAP protocol and don't indicate a communication | 3222 | ;; SOAP protocol and don't indicate a communication |
| 3223 | ;; problem or a bug in this code. | 3223 | ;; problem or a bug in this code. |
| 3224 | (signal (car err) (cdr err))) | 3224 | (signal err)) |
| 3225 | (error | 3225 | (error |
| 3226 | (when soap-debug | 3226 | (when soap-debug |
| 3227 | (pop-to-buffer buffer)) | 3227 | (pop-to-buffer buffer)) |