[nongnu] elpa/hyperdrive 3b54e0b34c 08/10: Fix: (hyperdrive-mirror) Require match when reading named function

[ELPA Syncer]

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

    Fix: (hyperdrive-mirror) Require match when reading named function
    
    Also use `obarray' instead of collecting choices manually.
---
 hyperdrive-mirror.el | 7 +------
 1 file changed, 1 insertion(+), 6 deletions(-)

diff --git a/hyperdrive-mirror.el b/hyperdrive-mirror.el
index 7b7da89489..9146edd90b 100644
--- a/hyperdrive-mirror.el
+++ b/hyperdrive-mirror.el
@@ -124,12 +124,7 @@ predicate and set NO-CONFIRM to t."
                                                            (read--expression 
"Lambda: " "(lambda (filename) )")))
                                     ("Named function" .
                                      (lambda ()
-                                       (completing-read "Named function: "
-                                                        (let ((functions))
-                                                          (mapatoms (lambda 
(atom)
-                                                                      (when 
(functionp atom)
-                                                                        (push 
atom functions))))
-                                                          functions))))))
+                                       (completing-read "Named function: " 
obarray #'functionp t)))))
                                  (choice (completing-read "Predicate type: " 
collection))
                                  (result (funcall (alist-get choice collection 
nil nil #'equal))))
                             result)