Use time-convert in with-decoded-time-value

* lisp/calendar/time-date.el (with-decoded-time-value):
Prefer time-convert to current-time on the off chance that code
will use this obsolete macro even after current-time returns pairs.
This commit is contained in:
Paul Eggert 2021-12-05 19:11:59 -08:00
parent 084f440571
commit 2bda02943b

View file

@ -69,7 +69,7 @@ list (HIGH LOW MICRO PICO)."
(pop elt)))
(time-value (car elt))
(gensym (make-symbol "time")))
`(let* ,(append `((,gensym (or ,time-value (current-time)))
`(let* ,(append `((,gensym (or ,time-value (time-convert nil 'list)))
(,gensym
(cond
((integerp ,gensym)