From d7c9ed8445d13de7350be3360d68717362f89929 Mon Sep 17 00:00:00 2001 From: Paul Eggert Date: Fri, 16 Aug 2019 18:10:14 -0700 Subject: [PATCH] Broaden format-seconds to Lisp timestamps * lisp/calendar/time-date.el (format-seconds): Accept any Lisp timestamp instead of insisting on a number. --- lisp/calendar/time-date.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/calendar/time-date.el b/lisp/calendar/time-date.el index c22f4414201..fa5e886869a 100644 --- a/lisp/calendar/time-date.el +++ b/lisp/calendar/time-date.el @@ -306,7 +306,7 @@ is output until the first non-zero unit is encountered." (push match usedunits))) (and zeroflag larger (error "Units are not in decreasing order of size")) - (setq seconds (floor seconds)) + (setq seconds (time-convert seconds 'integer)) (dolist (u units) (setq spec (car u) name (cadr u) -- 2.39.2