emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/hyperdrive 5249ddb446 01/19: Fix: (he/previous) Handle mis


From: ELPA Syncer
Subject: [nongnu] elpa/hyperdrive 5249ddb446 01/19: Fix: (he/previous) Handle missing version range data
Date: Sun, 9 Jun 2024 15:59:59 -0400 (EDT)

branch: elpa/hyperdrive
commit 5249ddb446bc64f97a0f8e8c4a685ab1d970b167
Author: Joseph Turner <joseph@ushin.org>
Commit: Joseph Turner <joseph@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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]