diff options
| -rw-r--r-- | lisp/progmodes/project.el | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el index eab508af3ac..cc45a71f576 100644 --- a/lisp/progmodes/project.el +++ b/lisp/progmodes/project.el | |||
| @@ -477,6 +477,10 @@ For the arguments list, see `project--read-file-cpd-relative'." | |||
| 477 | (defun project--read-file-cpd-relative (prompt | 477 | (defun project--read-file-cpd-relative (prompt |
| 478 | all-files &optional predicate | 478 | all-files &optional predicate |
| 479 | hist default) | 479 | hist default) |
| 480 | "Read a file name, prompting with PROMPT. | ||
| 481 | ALL-FILES is a list of possible file name completions. | ||
| 482 | PREDICATE, HIST, and DEFAULT have the same meaning as in | ||
| 483 | `completing-read'." | ||
| 480 | (let* ((common-parent-directory | 484 | (let* ((common-parent-directory |
| 481 | (let ((common-prefix (try-completion "" all-files))) | 485 | (let ((common-prefix (try-completion "" all-files))) |
| 482 | (if (> (length common-prefix) 0) | 486 | (if (> (length common-prefix) 0) |