Commit 27cafd13 authored by Thomas Fitzsimmons's avatar Thomas Fitzsimmons
Browse files

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: default avatarStefan Monnier <monnier@iro.umontreal.ca>
parent 349fbb35
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment