masscollaborationlabs/emacs
2
0
Fork 0
mirror of https://github.com/masscollaborationlabs/emacs.git synced 2025-07-03 10:53:23 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

; * lisp/time.el (world-clock--sort-entries): Avoid compiler warning.

Browse source
This commit is contained in:
Eli Zaretskii 2025-06-14 17:21:18 +03:00
parent 9c6c7c4bb7
commit 994f816ca8
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/time.el
View file

@ -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))))