diff options
| author | Robert Pluim | 2024-07-18 09:05:53 +0200 |
|---|---|---|
| committer | Robert Pluim | 2024-07-18 09:05:53 +0200 |
| commit | da97096fdbb50bf69348813c960eb8d10b2bdc44 (patch) | |
| tree | aa6805be2ede7297ca816384ea2a1274360f8df3 | |
| parent | d31b202377ed844c1ecc405ffb879c03d5552d6b (diff) | |
| download | emacs-da97096fdbb50bf69348813c960eb8d10b2bdc44.tar.gz emacs-da97096fdbb50bf69348813c960eb8d10b2bdc44.zip | |
; fix previous find-function change
| -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." |