[nongnu] elpa/hyperdrive 8e5806bc02 07/21: Fix: (hyperdrive-menu) Handle 'unknown next entry

[ELPA Syncer]

branch: elpa/hyperdrive
commit 8e5806bc023ba487a9ea566ba7d3c55593fe03ca
Author: Joseph Turner <joseph@ushin.org>
Commit: Joseph Turner <joseph@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")))