[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 96c43d398a9: Simplify soap-decode-data-time use of encode-time
From: |
Paul Eggert |
Subject: |
master 96c43d398a9: Simplify soap-decode-data-time use of encode-time |
Date: |
Thu, 11 May 2023 22:49:09 -0400 (EDT) |
branch: master
commit 96c43d398a960361308cec536f3519ad5a74c61c
Author: Paul Eggert <eggert@cs.ucla.edu>
Commit: Paul Eggert <eggert@cs.ucla.edu>
Simplify soap-decode-data-time use of encode-time
* lisp/net/soap-client.el (soap-decode-date-time):
Call encode-time directly instead of via ‘apply’.
No need for the two nil args.
---
lisp/net/soap-client.el | 9 +++------
1 file changed, 3 insertions(+), 6 deletions(-)
diff --git a/lisp/net/soap-client.el b/lisp/net/soap-client.el
index 866b33decc6..2991d29f870 100644
--- a/lisp/net/soap-client.el
+++ b/lisp/net/soap-client.el
@@ -717,12 +717,9 @@ representing leap seconds."
second)
minute hour day month year second-fraction datatype time-zone)
(let ((time
- ;; 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))))
+ ;; Call encode-time the old way, for Emacs<27.
+ (encode-time (if new-decode-time new-decode-time-second second)
+ minute hour day month year time-zone)))
(if new-decode-time
(with-no-warnings (decode-time time nil t))
(decode-time time))))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 96c43d398a9: Simplify soap-decode-data-time use of encode-time,
Paul Eggert <=