From 9e131f55d8d5a1eeb44e7c5a3a5e56804be60dba Mon Sep 17 00:00:00 2001 From: Paul Eggert Date: Thu, 16 Dec 2021 09:40:22 -0800 Subject: [PATCH] Simplify epa-ks--parse-buffer timestamp handling * lisp/epa-ks.el (epa-ks--parse-buffer): Omit unnecessary calls to seconds-to-time, and prefer the unaliased name time-convert when calls are necessary. --- lisp/epa-ks.el | 12 ++++-------- 1 file changed, 4 insertions(+), 8 deletions(-) diff --git a/lisp/epa-ks.el b/lisp/epa-ks.el index 5dd6ad34d74..186b0ac9d1c 100644 --- a/lisp/epa-ks.el +++ b/lisp/epa-ks.el @@ -295,12 +295,12 @@ enough, since keyservers have strict timeout settings." :created (and (match-string 4) (not (string-empty-p (match-string 4))) - (seconds-to-time + (time-convert (string-to-number (match-string 4)))) :expires (and (match-string 5) (not (string-empty-p (match-string 5))) - (seconds-to-time + (time-convert (string-to-number (match-string 5)))) :flags (mapcar (lambda (flag) @@ -319,15 +319,11 @@ enough, since keyservers have strict timeout settings." :created (and (match-string 2) (not (string-empty-p (match-string 2))) - (decode-time (seconds-to-time - (string-to-number - (match-string 2))))) + (decode-time (string-to-number (match-string 2)))) :expires (and (match-string 3) (not (string-empty-p (match-string 3))) - (decode-time (seconds-to-time - (string-to-number - (match-string 3))))) + (decode-time (string-to-number (match-string 3)))) :flags (mapcar (lambda (flag) (cdr (assq flag '((?r revoked) -- 2.39.5