From: Paul Eggert <eggert@cs.ucla.edu>
Date: Sat, 17 Aug 2019 01:10:14 +0000 (-0700)
Subject: Broaden format-seconds to Lisp timestamps
X-Git-Tag: emacs-27.0.90~1589
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d7c9ed8445d13de7350be3360d68717362f89929;p=emacs.git

Broaden format-seconds to Lisp timestamps

* lisp/calendar/time-date.el (format-seconds):
Accept any Lisp timestamp instead of insisting on a number.
---

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)