diff options
| author | Thomas Fitzsimmons <fitzsim@fitzsim.org> | 2017-05-24 14:28:32 -0400 |
|---|---|---|
| committer | Thomas Fitzsimmons <fitzsim@fitzsim.org> | 2017-05-25 08:49:57 -0400 |
| commit | 27cafd13683d6a33abbf08e4f32401b51e70f349 (patch) | |
| tree | 17d8ded07544283b375d69dc60c86bc10cdb4c0a | |
| parent | 349fbb35513f001a49623be8fe6704cda4ca48e2 (diff) | |
| download | emacs-27cafd13683d6a33abbf08e4f32401b51e70f349.tar.gz emacs-27cafd13683d6a33abbf08e4f32401b51e70f349.tar.bz2 emacs-27cafd13683d6a33abbf08e4f32401b51e70f349.zip | |
lisp/net/soap-client.el: Shorten some long lines
* lisp/net/soap-client.el (soap-encode-xs-element): Remove
unnecessary progn.
(soap-xs-add-union): Wrap long line.
Co-authored-by: Stefan Monnier <monnier@iro.umontreal.ca>
| -rw-r--r-- | lisp/net/soap-client.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/net/soap-client.el b/lisp/net/soap-client.el index 922f6985761..48cf6ec62f5 100644 --- a/lisp/net/soap-client.el +++ b/lisp/net/soap-client.el @@ -895,9 +895,8 @@ This is a specialization of `soap-encode-value' for (setf (soap-xs-element-type^ new-element) (soap-xs-complex-type-base type)) (cl-loop for i below (length value) - do (progn - (soap-encode-xs-element (aref value i) new-element) - ))) + do (soap-encode-xs-element + (aref value i) new-element))) (soap-encode-value value type)) (insert "</" fq-name ">\n")) ;; else @@ -1163,7 +1162,8 @@ See also `soap-wsdl-resolve-references'." "Add union members defined in XML NODE to TYPE, an `soap-xs-simple-type'." (cl-assert (eq (soap-l2wk (xml-node-name node)) 'xsd:union) nil - "expecting xsd:union node, got %s" (soap-l2wk (xml-node-name node))) + "expecting xsd:union node, got %s" + (soap-l2wk (xml-node-name node))) (setf (soap-xs-simple-type-base type) (mapcar 'soap-l2fq |