[nongnu] elpa/hyperdrive 112e7b6316 10/16: Fix: (h/history-fill-version-ranges) Handle invocations on top line

[ELPA Syncer]

branch: elpa/hyperdrive
commit 112e7b6316734a4d9fc41860df9e467eaec6ed4f
Author: Joseph Turner <joseph@ushin.org>
Commit: Joseph Turner <joseph@ushin.org>

    Fix: (h/history-fill-version-ranges) Handle invocations on top line
---
 hyperdrive-history.el | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/hyperdrive-history.el b/hyperdrive-history.el
index 7cddce0080..23fbc50976 100644
--- a/hyperdrive-history.el
+++ b/hyperdrive-history.el
@@ -229,10 +229,12 @@ prefix argument \\[universal-argument], prompt for ENTRY."
 (defun h/history-fill-version-ranges (entry)
   "Fill version ranges starting from ENTRY at point."
   (interactive (list (h/history-entry-at-point)))
-  (pcase-let* (((cl-struct hyperdrive-entry (etc (map range-end))) entry)
+  (pcase-let* (((cl-struct h/entry hyperdrive etc) entry)
+               ((cl-struct hyperdrive latest-version) hyperdrive)
+               ((map range-end) etc)
                (range-end-entry (compat-call copy-tree entry t))
                (ov (make-overlay (pos-bol) (+ (pos-bol) (length "Loading")))))
-    (setf (he/version range-end-entry) range-end)
+    (setf (he/version range-end-entry) (or range-end latest-version))
     (overlay-put ov 'display "Loading")
     (h/fill-version-ranges range-end-entry
       :finally (lambda ()