Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-06-14 04:21:24 +00:00
Code Issues Projects Releases Packages Wiki Activity

Simplify epa-ks--display-keys time calc

Browse source 
* lisp/epa-ks.el (epa-ks--display-keys):
Simplify by using time-less-p.  This also avoids a rounding error.
This commit is contained in:
Paul Eggert 2026-06-05 18:59:25 -07:00
parent 2dc98b69e0
commit 56b93016fc
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/epa-ks.el
View file

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