[nongnu] elpa/hyperdrive 8d5d248468 002/102: Change: (-mirror-read-predicate) Return nil when mirroring all files

[ELPA Syncer]

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

    Change: (-mirror-read-predicate) Return nil when mirroring all files
---
 hyperdrive-mirror.el | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/hyperdrive-mirror.el b/hyperdrive-mirror.el
index 87fa172e25..b1a4b7a9a2 100644
--- a/hyperdrive-mirror.el
+++ b/hyperdrive-mirror.el
@@ -343,8 +343,7 @@ grouping keys, as in `hyperdrive-mirror-default-keys'."
 (defun hyperdrive-mirror-read-predicate ()
   "Read a function for filtering source files for mirroring."
   (let* ((readers
-          '(("Mirror all files" .
-             (lambda () #'always))
+          '(("Mirror all files" . nil)
             ("`rx' form" .
              (lambda () (eval (read--expression "`rx' form: " "(rx )"))))
             ("Regexp string" .
@@ -353,8 +352,9 @@ 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 nil t)))
-    (funcall (alist-get reader readers nil nil #'equal))))
+         (reader (completing-read "Predicate type: " readers nil t))
+         (reader (alist-get reader readers nil nil #'equal)))
+    (and reader (funcall reader))))
 
 (defun hyperdrive-mirror-do-upload ()
   "Upload files in current \"*hyperdrive-mirror*\" buffer."