[Emacs-diffs] master 27cafd1 2/6: lisp/net/soap-client.el: Shorten some long lines

[Thomas Fitzsimmons]

branch: master
commit 27cafd13683d6a33abbf08e4f32401b51e70f349
Author: Thomas Fitzsimmons <address@hidden>
Commit: Thomas Fitzsimmons <address@hidden>

    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 <address@hidden>
---
 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 922f698..48cf6ec 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