branch: elpa/hyperdrive
commit cfb434e0d0c4eb4214f082da355a73c4ba992f7b
Author: Joseph Turner <jos...@ushin.org>
Commit: Joseph Turner <jos...@ushin.org>
Change: (-entry-version-range) Accept keyed argument version
---
hyperdrive-lib.el | 8 +++++---
1 file changed, 5 insertions(+), 3 deletions(-)
diff --git a/hyperdrive-lib.el b/hyperdrive-lib.el
index 3f0b4f160c..936fa3bda8 100644
--- a/hyperdrive-lib.el
+++ b/hyperdrive-lib.el
@@ -323,11 +323,13 @@ Intended to be used as hash table key in
`hyperdrive-version-ranges'."
hyperdrive-version-ranges)
(persist-save 'hyperdrive-version-ranges))
-(defun hyperdrive-entry-version-range (entry)
+(cl-defun hyperdrive-entry-version-range (entry &key version)
"Return the version range containing ENTRY.
-Returns nil when ENTRY is not known to exist at its version."
+Returns nil when ENTRY is not known to exist at its version.
+
+With non-nil VERSION, use it instead of ENTRY's version."
(pcase-let* (((cl-struct hyperdrive-entry hyperdrive (version
entry-version)) entry)
- (version (or entry-version (hyperdrive-latest-version
hyperdrive)))
+ (version (or version entry-version (hyperdrive-latest-version
hyperdrive)))
(ranges (hyperdrive-entry-version-ranges entry)))
(when ranges
(cl-find-if (pcase-lambda (`(,range-start . ,(map (:range-end
range-end))))
