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

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

[nongnu] elpa/hyperdrive 997c57ba7a: Tidy: (hyperdrive-entry-next)


From: ELPA Syncer
Subject: [nongnu] elpa/hyperdrive 997c57ba7a: Tidy: (hyperdrive-entry-next)
Date: Mon, 11 Sep 2023 16:00:29 -0400 (EDT)

branch: elpa/hyperdrive
commit 997c57ba7a7ea5414c5a655d5b9d733141732f72
Author: Adam Porter <adam@alphapapa.net>
Commit: Adam Porter <adam@alphapapa.net>

    Tidy: (hyperdrive-entry-next)
---
 hyperdrive-lib.el | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/hyperdrive-lib.el b/hyperdrive-lib.el
index e1f9998800..6bfe31cded 100644
--- a/hyperdrive-lib.el
+++ b/hyperdrive-lib.el
@@ -417,12 +417,14 @@ If next version's existence is unknown, return 
\\+`unknown'.
 If ENTRY's version is nil, return value is `eq' to ENTRY.
 
 Sends a request to the gateway for hyperdrive's latest version."
+  (unless (hyperdrive-entry-version entry)
+    ;; ENTRY's version is nil: return ENTRY.
+    (cl-return-from hyperdrive-entry-next entry))
+
+  ;; ENTRY's version is not nil.
   (let ((next-entry (hyperdrive-copy-tree entry t))
         (latest-version (hyperdrive-fill-latest-version
                          (hyperdrive-entry-hyperdrive entry))))
-    ;; ENTRY's version is nil: return ENTRY.
-    (unless (hyperdrive-entry-version entry)
-      (cl-return-from hyperdrive-entry-next entry))
 
     ;; ENTRY version is the latest version: return ENTRY with nil version.
     (when (eq latest-version (hyperdrive-entry-version entry))



reply via email to

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