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>

diff --git a/lisp/net/soap-client.el b/lisp/net/soap-client.el
index 922f698576169e171e6a70eb14e78499cf8b7ea6..48cf6ec62f5ba0147e504b03cb33769a4463ea82 100644 (file)
--- 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