* lisp/progmodes/project.el (project-read-file-name-function): Fix type.

This commit is contained in:
Juri Linkov 2019-05-14 23:40:31 +03:00
parent 624a232a8d
commit c11c990356
2 changed files with 9 additions and 7 deletions

View file

@ -518,8 +518,11 @@ The mode is automatically enabled in files that start with the
'function' keyword.
** project.el
*** New commands 'project-search' and 'project-query-replace-regexp'.
*** New customizable variable 'project-read-file-name-function'.
** Etags
+++
@ -1987,8 +1990,6 @@ returns a regexp that never matches anything, which is an identity for
this operation. Previously, the empty string was returned in this
case.
** New variable project-read-file-name-function.
* Changes in Emacs 27.1 on Non-Free Operating Systems

View file

@ -467,11 +467,12 @@ recognized."
(defcustom project-read-file-name-function #'project--read-file-cpd-relative
"Function to call to read a file name from a list.
For the arguments list, see `project--read-file-cpd-relative'."
:type '(repeat (choice (const :tag "Read with completion from relative names"
project--read-file-cpd-relative)
(const :tag "Read with completion from absolute names"
project--read-file-absolute)
(function :tag "custom function" nil))))
:type '(choice (const :tag "Read with completion from relative names"
project--read-file-cpd-relative)
(const :tag "Read with completion from absolute names"
project--read-file-absolute)
(function :tag "Custom function" nil))
:version "27.1")
(defun project--read-file-cpd-relative (prompt
all-files &optional predicate