[nongnu] elpa/hyperdrive 9bc9cf44d8 018/102: Fix: (hyperdrive-mirror-read-predicate) Return symbol for named func

[ELPA Syncer]

branch: elpa/hyperdrive
commit 9bc9cf44d8fbc1a36bb98d7ebcb7c0a2c6daf332
Author: Joseph Turner <joseph@ushin.org>
Commit: Jonas Bernoulli <jonas@bernoul.li>

    Fix: (hyperdrive-mirror-read-predicate) Return symbol for named func
    
    (completing-read "Named function: " obarray #'functionp t) returns a string.
---
 hyperdrive-mirror.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/hyperdrive-mirror.el b/hyperdrive-mirror.el
index 3daa8e04f0..fa89f4c8c2 100644
--- a/hyperdrive-mirror.el
+++ b/hyperdrive-mirror.el
@@ -351,7 +351,7 @@ grouping keys, as in `hyperdrive-mirror-default-keys'."
             ("Lambda function" .
              (lambda () (read--expression "Lambda: " "(lambda (filename) )")))
             ("Named function"   .
-             (lambda () (completing-read "Named function: " obarray 
#'functionp t)))))
+             (lambda () (intern (completing-read "Named function: " obarray 
#'functionp t))))))
          ;; TODO(transient): Implement returning values from prefixes,
          ;; allowing us to use a sub-prefix here instead of completing-read.
          (reader (completing-read "Predicate type: " readers nil t))