diff options
| author | Paul Eggert <eggert@cs.ucla.edu> | 2023-05-11 19:48:18 -0700 |
|---|---|---|
| committer | Paul Eggert <eggert@cs.ucla.edu> | 2023-05-11 19:49:02 -0700 |
| commit | 96c43d398a960361308cec536f3519ad5a74c61c (patch) | |
| tree | 7f47a77586cf6580223a0e3511e41cd37f04ab99 | |
| parent | 30501083f2ff24ee1291a68e83c65b89c644f44b (diff) | |
| download | emacs-96c43d398a960361308cec536f3519ad5a74c61c.tar.gz | |
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.
| -rw-r--r-- | lisp/net/soap-client.el | 9 |
1 files 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)))))) |