[nongnu] elpa/hyperdrive 214a060f75 001/102: Fix: (-mirror-read-predicate) Require match for predicate type

[ELPA Syncer]

branch: elpa/hyperdrive
commit 214a060f753a6b3ad399acc59db8dccb82b5780c
Author: Jonas Bernoulli <jonas@bernoul.li>
Commit: Jonas Bernoulli <jonas@bernoul.li>

    Fix: (-mirror-read-predicate) Require match for predicate type
---
 hyperdrive-mirror.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/hyperdrive-mirror.el b/hyperdrive-mirror.el
index 286dd225c5..87fa172e25 100644
--- a/hyperdrive-mirror.el
+++ b/hyperdrive-mirror.el
@@ -353,7 +353,7 @@ grouping keys, as in `hyperdrive-mirror-default-keys'."
              (lambda () (read--expression "Lambda: " "(lambda (filename) )")))
             ("Named function"   .
              (lambda () (completing-read "Named function: " obarray 
#'functionp t)))))
-         (reader (completing-read "Predicate type: " readers)))
+         (reader (completing-read "Predicate type: " readers nil t)))
     (funcall (alist-get reader readers nil nil #'equal))))
 
 (defun hyperdrive-mirror-do-upload ()