From 2d55d9c1478f37a026ea7d8c251c17ecbac53163 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sat, 14 Jun 2025 17:21:18 +0300 Subject: [PATCH] ; * lisp/time.el (world-clock--sort-entries): Avoid compiler warning. (cherry picked from commit 994f816ca8bac187e5f0d32cdf7343899acd7d7b) --- lisp/time.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lisp/time.el b/lisp/time.el index c1c803f4a5a..881e94f7304 100644 --- a/lisp/time.el +++ b/lisp/time.el @@ -592,8 +592,8 @@ See `world-clock'." (defvar world-clock--timer nil "The current world clock timer.") -(defun world-clock--sort-entries (tzlist time) - "Sort TZLIST according to `world-clock-sort-order' at a given TIME." +(defun world-clock--sort-entries (tzlist timeval) + "Sort TZLIST according to `world-clock-sort-order' at a given TIMEVAL." (pcase world-clock-sort-order ((pred null) tzlist) ((or (and (pred stringp) format) @@ -601,9 +601,9 @@ See `world-clock'." ,(and (pred booleanp) reverse))) (sort tzlist :key (lambda (entry) - (format-time-string format time (car entry))) + (format-time-string format timeval (car entry))) :reverse reverse)) - ((pred functionp) (funcall world-clock-sort-order tzlist time)) + ((pred functionp) (funcall world-clock-sort-order tzlist timeval)) (_ (error "Invalid `world-clock-sort-order': `%s'" world-clock-sort-order)))) -- 2.39.5