aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-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)."
354 (setq def nil)) 354 (setq def nil))
355 (completing-read (format-prompt "Library name" def) 355 (completing-read (format-prompt "Library name" def)
356 table nil nil nil 356 table nil nil nil
357 find-function--read-history-library def)) 357 'find-function--read-history-library def))
358 (let ((files (read-library-name--find-files dirs suffixes))) 358 (let ((files (read-library-name--find-files dirs suffixes)))
359 (when (and def (not (member def files))) 359 (when (and def (not (member def files)))
360 (setq def nil)) 360 (setq def nil))
361 (completing-read (format-prompt "Library name" def) 361 (completing-read (format-prompt "Library name" def)
362 files nil t nil 362 files nil t nil
363 find-function--read-history-library def))))) 363 'find-function--read-history-library def)))))
364 364
365(defun read-library-name--find-files (dirs suffixes) 365(defun read-library-name--find-files (dirs suffixes)
366 "Return a list of all files in DIRS that match SUFFIXES." 366 "Return a list of all files in DIRS that match SUFFIXES."