mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-21 05:21:37 -07:00
Code Issues Projects Releases Wiki Activity

soap-client.el: Revert dd0727e1ec, add compatibility comment

Browse source 
* lisp/net/soap-client.el (soap-decode-date-time): Call
encode-time using apply, for GNU ELPA backward compatibility.
Remove some tabs.
(soap-type-is-array?): Reword docstring to accommodate checkdoc.
This commit is contained in:
Thomas Fitzsimmons 2023-05-11 06:01:32 -04:00
parent 1c60b0639b
commit e6dd775955
1 changed files with 7 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -717,9 +717,12 @@ representing leap seconds."
second)
minute hour day month year second-fraction datatype time-zone)
(let ((time
(encode-time (list
(if new-decode-time new-decode-time-second second)
minute hour day month year nil nil time-zone))))
;; Continue calling encode-time the old way, for backward
;; compatibility in GNU ELPA.
(apply
#'encode-time (list
(if new-decode-time new-decode-time-second second)
minute hour day month year nil nil time-zone))))
(if new-decode-time
(with-no-warnings (decode-time time nil t))
(decode-time time))))))
@ -946,7 +949,7 @@ This is a specialization of `soap-encode-attributes' for
(t nil)))
(defun soap-type-is-array? (type)
"Return t if TYPE defines an ARRAY."
"Return t if TYPE is an ARRAY."
(and (soap-xs-complex-type-p type)
(eq (soap-xs-complex-type-indicator type) 'array)))