diff options
| author | Paul Eggert | 2019-08-16 18:10:14 -0700 |
|---|---|---|
| committer | Paul Eggert | 2019-08-16 18:12:24 -0700 |
| commit | d7c9ed8445d13de7350be3360d68717362f89929 (patch) | |
| tree | 5ca3726317b9704e1358bde53ceec5e111e4c036 | |
| parent | f6dd46cba8b144cf1653f8314a4b629beee11be3 (diff) | |
| download | emacs-d7c9ed8445d13de7350be3360d68717362f89929.tar.gz emacs-d7c9ed8445d13de7350be3360d68717362f89929.zip | |
Broaden format-seconds to Lisp timestamps
* lisp/calendar/time-date.el (format-seconds):
Accept any Lisp timestamp instead of insisting on a number.
| -rw-r--r-- | lisp/calendar/time-date.el | 2 |
1 files changed, 1 insertions, 1 deletions
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." | |||
| 306 | (push match usedunits))) | 306 | (push match usedunits))) |
| 307 | (and zeroflag larger | 307 | (and zeroflag larger |
| 308 | (error "Units are not in decreasing order of size")) | 308 | (error "Units are not in decreasing order of size")) |
| 309 | (setq seconds (floor seconds)) | 309 | (setq seconds (time-convert seconds 'integer)) |
| 310 | (dolist (u units) | 310 | (dolist (u units) |
| 311 | (setq spec (car u) | 311 | (setq spec (car u) |
| 312 | name (cadr u) | 312 | name (cadr u) |