procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

lisp/net/soap-client.el: Shorten some long lines

Browse source 
* 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>
This commit is contained in:
Thomas Fitzsimmons 2017-05-24 14:28:32 -04:00
parent 349fbb3551
commit 27cafd1368
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/net/soap-client.el
View file

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