emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/hyperdrive 93520312ef 05/31: Tidy: (hyperdrive-mirror) Min


From: ELPA Syncer
Subject: [nongnu] elpa/hyperdrive 93520312ef 05/31: Tidy: (hyperdrive-mirror) Minor optimization
Date: Fri, 3 Nov 2023 22:00:46 -0400 (EDT)

branch: elpa/hyperdrive
commit 93520312ef4d8b928131ebcaf5f56822d258d9ff
Author: Joseph Turner <joseph@ushin.org>
Commit: Adam Porter <adam@alphapapa.net>

    Tidy: (hyperdrive-mirror) Minor optimization
---
 hyperdrive-mirror.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/hyperdrive-mirror.el b/hyperdrive-mirror.el
index 2a8fec6e0a..b05cf30118 100644
--- a/hyperdrive-mirror.el
+++ b/hyperdrive-mirror.el
@@ -213,10 +213,10 @@ predicate and set NO-CONFIRM to t."
                           (let* ((drive-mtime (hyperdrive-entry-mtime entry))
                                  (local-mtime 
(file-attribute-modification-time (file-attributes file)))
                                  (status (cond
-                                          ((time-equal-p drive-mtime 
local-mtime)
-                                           (propertize "same as" 'face 
'hyperdrive-mirror-same))
                                           ((time-less-p drive-mtime 
local-mtime)
                                            (propertize "newer than" 'face 
'hyperdrive-mirror-newer))
+                                          ((time-equal-p drive-mtime 
local-mtime)
+                                           (propertize "same as" 'face 
'hyperdrive-mirror-same))
                                           (t
                                            (propertize "older than" 'face 
'hyperdrive-mirror-older))))
                                  (url (hyperdrive-entry-url entry)))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]