diff options
| -rw-r--r-- | lisp/emacs-lisp/find-func.el | 4 |
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." |