branch: elpa/hyperdrive
commit fd64117c3597e3c375a3da7472ad85d924b7b5fd
Author: Joseph Turner <jos...@ushin.org>
Commit: Joseph Turner <jos...@ushin.org>
Change: (he/within-version-range-p) Rename from he/within-version-range
Suggested-by: Adam Porter <a...@alphapapa.net>
---
hyperdrive-history.el | 2 +-
hyperdrive-lib.el | 2 +-
2 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/hyperdrive-history.el b/hyperdrive-history.el
index d02b5a961d..7bf8a04224 100644
--- a/hyperdrive-history.el
+++ b/hyperdrive-history.el
@@ -125,7 +125,7 @@ All other slots in each ewoc node entry data will be
reused."
(history-ewoc (buffer-local-value 'h/ewoc history-buffer))
(history-node (and history-ewoc
(h/ewoc-find-node history-ewoc entry
- :predicate #'he/within-version-range)))
+ :predicate #'he/within-version-range-p)))
(history-ewoc-entry (ewoc-data history-node)))
(setf (map-elt (he/etc history-ewoc-entry) 'block-length-downloaded)
(map-elt (he/etc entry) 'block-length-downloaded))
diff --git a/hyperdrive-lib.el b/hyperdrive-lib.el
index c59eb58e9c..85c4746e3b 100644
--- a/hyperdrive-lib.el
+++ b/hyperdrive-lib.el
@@ -1735,7 +1735,7 @@ Compares their public keys."
"Return non-nil if entries A and B have the same hyperdrive."
(h/equal-p (he/hyperdrive a) (he/hyperdrive b)))
-(defun he/within-version-range (entry entry-with-range-end)
+(defun he/within-version-range-p (entry entry-with-range-end)
"Return non-nil if ENTRY is within ENTRY-WITH-RANGE-END's range."
(<= (he/version entry-with-range-end)
(or (he/version entry)
