branch: elpa/hyperdrive
commit 3b54e0b34c313a099be7d6f301cdcdec70908b5d
Author: Jonas Bernoulli <[email protected]>
Commit: Jonas Bernoulli <[email protected]>
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)
