From 27cafd13683d6a33abbf08e4f32401b51e70f349 Mon Sep 17 00:00:00 2001 From: Thomas Fitzsimmons Date: Wed, 24 May 2017 14:28:32 -0400 Subject: [PATCH] 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 --- lisp/net/soap-client.el | 8 ++++---- 1 file 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 "\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 -- 2.39.5