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

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

[nongnu] elpa/hyperdrive f5e715fbcd: Fix: (h/update-existent-version-ran


From: ELPA Syncer
Subject: [nongnu] elpa/hyperdrive f5e715fbcd: Fix: (h/update-existent-version-range) Off by one error
Date: Tue, 14 May 2024 19:00:04 -0400 (EDT)

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

    Fix: (h/update-existent-version-range) Off by one error
    
    There's no need to process version information if the existing range
    ends at ENTRY's version.
---
 hyperdrive-lib.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/hyperdrive-lib.el b/hyperdrive-lib.el
index adf9708883..81185716d9 100644
--- a/hyperdrive-lib.el
+++ b/hyperdrive-lib.el
@@ -741,8 +741,8 @@ Returns the ranges cons cell for ENTRY."
                  ((map (:range-end old-range-end)) range)
                  ((cl-struct hyperdrive-entry hyperdrive version) entry)
                  (range-end (or version (h/latest-version hyperdrive))))
-      (unless (and old-range-end (> old-range-end range-end))
-        ;; If there already exists a longer existent range in
+      (unless (and old-range-end (>= old-range-end range-end))
+        ;; If there already exists a equally long or longer existent range in
         ;; `h/version-ranges', there's nothing to do.
         (setf (plist-get range :existsp) t)
         (setf (plist-get range :range-end) range-end)



reply via email to

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