From 56b93016fcce2646e4c3aaba98adc3a597495033 Mon Sep 17 00:00:00 2001 From: Paul Eggert Date: Fri, 5 Jun 2026 18:59:25 -0700 Subject: [PATCH] Simplify epa-ks--display-keys time calc * lisp/epa-ks.el (epa-ks--display-keys): Simplify by using time-less-p. This also avoids a rounding error. --- lisp/epa-ks.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/epa-ks.el b/lisp/epa-ks.el index 83c8bc38b26..e0504371e0d 100644 --- a/lisp/epa-ks.el +++ b/lisp/epa-ks.el @@ -194,7 +194,7 @@ KEYS is a list of `epa-ks-key' structures, as parsed by (if (epa-ks-key-expires key) (let* ((date (epa-ks-key-expires key)) (str (format-time-string "%F" date))) - (when (< 0 (time-to-seconds (time-since date))) + (when (time-less-p date nil) (setq str (propertize str 'face 'font-lock-warning-face))) str)