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 c22f441420138086cb2b37cd3c659b41cecdbdcd..fa5e886869a1e3d56c58b3c6a808a25dd77e7115 100644 (file)
--- 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)