[Emacs-diffs] master d7c9ed8 2/2: Broaden format-seconds to Lisp timestamps

[Paul Eggert]

branch: master
commit d7c9ed8445d13de7350be3360d68717362f89929
Author: Paul Eggert <address@hidden>
Commit: Paul Eggert <address@hidden>

    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 c22f441..fa5e886 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)