branch: elpa/hyperdrive
commit 8e5806bc023ba487a9ea566ba7d3c55593fe03ca
Author: Joseph Turner <jos...@ushin.org>
Commit: Joseph Turner <jos...@ushin.org>
Fix: (hyperdrive-menu) Handle 'unknown next entry
---
hyperdrive-menu.el | 9 +++++----
1 file changed, 5 insertions(+), 4 deletions(-)
diff --git a/hyperdrive-menu.el b/hyperdrive-menu.el
index 23eddc608a..af77205173 100644
--- a/hyperdrive-menu.el
+++ b/hyperdrive-menu.el
@@ -101,14 +101,15 @@
:inapt-if-not (lambda ()
(let ((entry (oref transient--prefix scope)))
(and (hyperdrive-entry-version entry)
- (hyperdrive-entry-next entry))))
- ;; :transient t
+ (hyperdrive-entry-p (hyperdrive-entry-next
entry)))))
:description (lambda ()
(concat "Next"
(when-let* ((entry (oref transient--prefix scope))
(next-entry (hyperdrive-entry-next
entry))
- ;; Don't add ": latest" if we're
already at the latest version
- ((not (eq entry next-entry)))
+ ;; Don't add ": latest" if we're
already at the latest
+ ;; version or if the next version is
`unknown'.
+ ((and (hyperdrive-entry-version entry)
+ (hyperdrive-entry-p
(hyperdrive-entry-next entry))))
(display-version (if-let
((next-version (hyperdrive-entry-version next-entry)))
(number-to-string
next-version)
"latest")))
