[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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [nongnu] elpa/hyperdrive f5e715fbcd: Fix: (h/update-existent-version-range) Off by one error,
ELPA Syncer <=