From: Thomas Fitzsimmons <fitzsim@fitzsim.org>
Date: Wed, 24 May 2017 18:28:32 +0000 (-0400)
Subject: lisp/net/soap-client.el: Shorten some long lines
X-Git-Tag: emacs-26.0.90~521^2~271
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=27cafd13683d6a33abbf08e4f32401b51e70f349;p=emacs.git

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 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