procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

; fix previous find-function change

Browse source
This commit is contained in:
Robert Pluim 2024-07-18 09:05:53 +02:00
parent d31b202377
commit da97096fdb
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/emacs-lisp/find-func.el
View file

@ -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."