[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))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [nongnu] elpa/hyperdrive 997c57ba7a: Tidy: (hyperdrive-entry-next),
ELPA Syncer <=