[nongnu] elpa/hyperdrive 73cef39917 12/49: WIP: Fix off-by-one

[ELPA Syncer]

branch: elpa/hyperdrive
commit 73cef3991797d510307f35768af49d6a5e43b890
Author: Adam Porter <adam@alphapapa.net>
Commit: Joseph Turner <joseph@ushin.org>

    WIP: Fix off-by-one
---
 hyperdrive-lib.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/hyperdrive-lib.el b/hyperdrive-lib.el
index 3ead991d8d..66a943b5cf 100644
--- a/hyperdrive-lib.el
+++ b/hyperdrive-lib.el
@@ -824,7 +824,7 @@ with no arguments."
                       (setf (hyperdrive-entry-version entry) (1- range-start))
                       (when (eq 'unknown (hyperdrive-entry-exists-p entry))
                         ;; Recurse backward through history.
-                        (fill-entry entry :limit (1- limit))
+                        (fill-entry entry :limit limit)
                         ;; Return non-nil to indicate that a request was made.
                         t))))
                 (fill-nonexistent (entry limit)
@@ -873,7 +873,8 @@ with no arguments."
                         :queue nonexistent-queue)
                       (setf outstanding-nonexistent-requests-p t))))
                 (fill-entry (entry &key (limit 
hyperdrive-fill-version-ranges-limit))
-                  (let ((copy-entry (hyperdrive-copy-tree entry t)))
+                  (let ((copy-entry (hyperdrive-copy-tree entry t))
+                        (limit (1- limit)))
                     (hyperdrive-fill copy-entry
                       ;; `hyperdrive-fill' is only used to fill the version 
ranges;
                       ;; the filled-entry is thrown away.