From: Eli Zaretskii <eliz@gnu.org>
Date: Sun, 13 Aug 2023 06:34:20 +0000 (+0300)
Subject: Avoid unexpected implicit completion in find-func.el
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=08bf8533bb1d0e4a07e644799d25e4551024126f;p=emacs.git

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)
---

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.