From e6dd77595548cd71364080310e8a9d3713ec0934 Mon Sep 17 00:00:00 2001 From: Thomas Fitzsimmons Date: Thu, 11 May 2023 06:01:32 -0400 Subject: [PATCH] soap-client.el: Revert dd0727e1ec1f, add compatibility comment * 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. --- lisp/net/soap-client.el | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/lisp/net/soap-client.el b/lisp/net/soap-client.el index e4b8bbd9cb5..90d9725f0a7 100644 --- a/lisp/net/soap-client.el +++ b/lisp/net/soap-client.el @@ -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))) -- 2.39.2