master 08bf8533bb1: Avoid unexpected implicit completion in find-func.el

[Eli Zaretskii]

branch: master
commit 08bf8533bb1d0e4a07e644799d25e4551024126f
Author: Eli Zaretskii <eliz@gnu.org>
Commit: Eli Zaretskii <eliz@gnu.org>

    Avoid unexpected implicit completion in find-func.el
    
    * lisp/emacs-lisp/find-func.el (find-function-read): Don't allow
    implicit completion, which could produce unexpected results.
    Patch by Jens Schmidt <jschmidt4gnu@vodafonemail.de>.  (Bug#65058)
---
 lisp/emacs-lisp/find-func.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/emacs-lisp/find-func.el b/lisp/emacs-lisp/find-func.el
index bf890fc35a9..d393ccc759a 100644
--- a/lisp/emacs-lisp/find-func.el
+++ b/lisp/emacs-lisp/find-func.el
@@ -591,7 +591,7 @@ otherwise uses `variable-at-point'."
     (list (intern (completing-read
                    (format-prompt "Find %s" symb prompt-type)
                    obarray predicate
-                   t nil nil (and symb (symbol-name symb)))))))
+                   'lambda nil nil (and symb (symbol-name symb)))))))
 
 (defun find-function-do-it (symbol type switch-fn)
   "Find Emacs Lisp SYMBOL in a buffer and display it.