[nongnu] elpa/hyperdrive 7d20ba30ad 19/32: Fix/Change: Use hyperdrive-queue-size everywhere

[ELPA Syncer]

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

    Fix/Change: Use hyperdrive-queue-size everywhere
---
 hyperdrive-diff.el     | 2 +-
 hyperdrive-handlers.el | 2 +-
 hyperdrive-history.el  | 2 +-
 hyperdrive-lib.el      | 2 +-
 hyperdrive-mirror.el   | 2 +-
 5 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/hyperdrive-diff.el b/hyperdrive-diff.el
index 18fc16e6ff..fe0161efbd 100644
--- a/hyperdrive-diff.el
+++ b/hyperdrive-diff.el
@@ -66,7 +66,7 @@ This function is intended to diff files, not directories."
   (let* (old-response
          new-response
          (queue (make-plz-queue
-                 :limit 2
+                 :limit hyperdrive-queue-size
                  :finally (lambda ()
                             (unless (or old-response new-response)
                               (hyperdrive-error "Files non-existent"))
diff --git a/hyperdrive-handlers.el b/hyperdrive-handlers.el
index 5a2cc3f7f7..a9b7140609 100644
--- a/hyperdrive-handlers.el
+++ b/hyperdrive-handlers.el
@@ -146,7 +146,7 @@ arguments."
                 metadata-queue (make-plz-queue
                                ;; Experimentation seems to show that a
                                ;; queue size of about 20 performs best.
-                                :limit 20
+                                :limit hyperdrive-queue-size
                                 :finally (lambda ()
                                            (with-current-buffer (ewoc-buffer 
ewoc)
                                              (ewoc-set-hf ewoc header "")
diff --git a/hyperdrive-history.el b/hyperdrive-history.el
index 0d23ffeddb..c376f13cb5 100644
--- a/hyperdrive-history.el
+++ b/hyperdrive-history.el
@@ -201,7 +201,7 @@ Universal prefix argument \\[universal-argument] forces
                   range-entries))
           ;; TODO: Display files in pop-up window, like magit-diff buffers 
appear when selected from magit-log
           (display-buffer (current-buffer) 
hyperdrive-history-display-buffer-action)
-          (setf queue (make-plz-queue :limit 8
+          (setf queue (make-plz-queue :limit hyperdrive-queue-size
                                       :finally (lambda ()
                                                  ;; NOTE: Ensure that the 
buffer's window is selected,
                                                  ;; if it has one.  
(Workaround a possible bug in EWOC.)
diff --git a/hyperdrive-lib.el b/hyperdrive-lib.el
index 19fb382f20..dc0781282d 100644
--- a/hyperdrive-lib.el
+++ b/hyperdrive-lib.el
@@ -605,7 +605,7 @@ requests return, call THEN with no arguments."
     (if ranges-to-fill
         (progn
           ;; TODO: When `plz' lets us handle errors in the queue finalizer, 
add that here.
-          (setf queue (make-plz-queue :limit 8 :finally then))
+          (setf queue (make-plz-queue :limit hyperdrive-queue-size :finally 
then))
           (cl-labels ((fill-recursively (unknown-entry)
                         ;; NOTE: `fill-recursively' is recursive logically but
                         ;; not technically, because each call is in the async 
callback.
diff --git a/hyperdrive-mirror.el b/hyperdrive-mirror.el
index 27113c5052..3a0c46b2d0 100644
--- a/hyperdrive-mirror.el
+++ b/hyperdrive-mirror.el
@@ -51,7 +51,7 @@ uploading files, open PARENT-ENTRY."
          (progress-reporter
           (make-progress-reporter (format "Uploading %s files: " (length 
files-and-urls)) 0 (length files-and-urls)))
          (queue (make-plz-queue
-                 :limit 2
+                 :limit hyperdrive-queue-size
                  :finally (lambda ()
                             (progress-reporter-done progress-reporter)
                             (hyperdrive-open parent-entry)