From: Paul Eggert <eggert@cs.ucla.edu>
Date: Mon, 6 Dec 2021 03:11:59 +0000 (-0800)
Subject: Use time-convert in with-decoded-time-value
X-Git-Tag: emacs-29.0.90~3612^2^2~6
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2bda02943b555b184f09dd1a5882e04a288f5026;p=emacs.git

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.
---

diff --git a/lisp/calendar/time-date.el b/lisp/calendar/time-date.el
index 37a16d3b98c..b36171259c0 100644
--- a/lisp/calendar/time-date.el
+++ b/lisp/calendar/time-date.el
@@ -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)