emacs-diffs
[Top][All Lists]
Advanced

[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)))
 



reply via email to

[Prev in Thread] Current Thread [Next in Thread]