From a51863f73d914dbabbadb396cda2c9d360866277 Mon Sep 17 00:00:00 2001 From: Paul Eggert Date: Mon, 1 Aug 2022 00:38:33 -0700 Subject: Simplify a few timestamps * lisp/calendar/time-date.el (safe-date-to-time): * lisp/calendar/timeclock.el (timeclock-generate-report): * lisp/epg.el (epg--start): * lisp/gnus/gnus-demon.el (gnus-demon-nntp-close-connection): * lisp/gnus/gnus-util.el (gnus-date-get-time): * lisp/gnus/nnheader.el (nnheader-last-message-time): * lisp/gnus/nnrss.el (nnrss-request-expire-articles): * lisp/vc/ediff-util.el (ediff-command-begin-time) (ediff-calc-command-time, ediff-profile): Prefer an integer like 0 to a timestamp list like (0 0) where either will do. --- lisp/epg.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'lisp/epg.el') diff --git a/lisp/epg.el b/lisp/epg.el index c5d946cb76c..c3c26badbba 100644 --- a/lisp/epg.el +++ b/lisp/epg.el @@ -606,7 +606,7 @@ callback data (if any)." process terminal-name agent-file - (agent-mtime '(0 0 0 0))) + (agent-mtime 0)) ;; Set GPG_TTY and TERM for pinentry-curses. Note that we can't ;; use `terminal-name' here to get the real pty name for the child ;; process, though /dev/fd/0" is not portable. @@ -633,7 +633,7 @@ callback data (if any)." (setq agent-file (match-string 1 agent-info) agent-mtime (or (file-attribute-modification-time (file-attributes agent-file)) - '(0 0 0 0)))) + 0))) (if epg-debug (save-excursion (unless epg-debug-buffer -- cgit v1.2.3