summaryrefslogtreecommitdiff
path: root/lisp/emacs-lisp
diff options
context:
space:
mode:
authorRobert Pluim <rpluim@gmail.com>2024-07-18 09:05:53 +0200
committerRobert Pluim <rpluim@gmail.com>2024-07-18 09:05:53 +0200
commitda97096fdbb50bf69348813c960eb8d10b2bdc44 (patch)
treeaa6805be2ede7297ca816384ea2a1274360f8df3 /lisp/emacs-lisp
parentd31b202377ed844c1ecc405ffb879c03d5552d6b (diff)
downloademacs-da97096fdbb50bf69348813c960eb8d10b2bdc44.tar.gz
emacs-da97096fdbb50bf69348813c960eb8d10b2bdc44.tar.bz2
emacs-da97096fdbb50bf69348813c960eb8d10b2bdc44.zip
; fix previous find-function change
Diffstat (limited to 'lisp/emacs-lisp')
-rw-r--r--lisp/emacs-lisp/find-func.el4
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/find-func.el b/lisp/emacs-lisp/find-func.el
index a320a00608d..c1835feff18 100644
--- a/lisp/emacs-lisp/find-func.el
+++ b/lisp/emacs-lisp/find-func.el
@@ -354,13 +354,13 @@ if non-nil)."
(setq def nil))
(completing-read (format-prompt "Library name" def)
table nil nil nil
- find-function--read-history-library def))
+ 'find-function--read-history-library def))
(let ((files (read-library-name--find-files dirs suffixes)))
(when (and def (not (member def files)))
(setq def nil))
(completing-read (format-prompt "Library name" def)
files nil t nil
- find-function--read-history-library def)))))
+ 'find-function--read-history-library def)))))
(defun read-library-name--find-files (dirs suffixes)
"Return a list of all files in DIRS that match SUFFIXES."