branch: elpa/hyperdrive
commit 5249ddb446bc64f97a0f8e8c4a685ab1d970b167
Author: Joseph Turner <jos...@ushin.org>
Commit: Joseph Turner <jos...@ushin.org>
Fix: (he/previous) Handle missing version range data
Previously, this function signaled an error if the entry lacked range
data, which broke hyperdrive-menu.
---
hyperdrive-lib.el | 6 +++++-
1 file changed, 5 insertions(+), 1 deletion(-)
diff --git a/hyperdrive-lib.el b/hyperdrive-lib.el
index fd930e1bec..53b4c2df16 100644
--- a/hyperdrive-lib.el
+++ b/hyperdrive-lib.el
@@ -430,7 +430,11 @@ be \\+`unknown'."
(he/create :hyperdrive hyperdrive
:path path
:version (1- version))))
- (let ((previous-version (1- (car (he/version-range entry)))))
+ (let ((previous-version
+ (1- (or (car (he/version-range entry))
+ ;; In the edge Entry has no version range: check entry
+ (he/version entry)
+ (h/latest-version (he/hyperdrive entry))))))
(pcase-exhaustive (he/version-range entry :version previous-version)
(`(,range-start . ,(map :existsp))
(if existsp
