[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master e6dd7759554: soap-client.el: Revert dd0727e1ec1f, add compatibili
From: |
Thomas Fitzsimmons |
Subject: |
master e6dd7759554: soap-client.el: Revert dd0727e1ec1f, add compatibility comment |
Date: |
Thu, 11 May 2023 17:27:52 -0400 (EDT) |
branch: master
commit e6dd77595548cd71364080310e8a9d3713ec0934
Author: Thomas Fitzsimmons <fitzsim@fitzsim.org>
Commit: Thomas Fitzsimmons <fitzsim@fitzsim.org>
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)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master e6dd7759554: soap-client.el: Revert dd0727e1ec1f, add compatibility comment,
Thomas Fitzsimmons <=