[Emacs-diffs] master c11c990: * lisp/progmodes/project.el (project-read-file-name-function): Fix type.

[Juri Linkov]

branch: master
commit c11c9903565c3fcab98ce715c5520ae1e349861f
Author: Juri Linkov <address@hidden>
Commit: Juri Linkov <address@hidden>

    * lisp/progmodes/project.el (project-read-file-name-function): Fix type.
---
 etc/NEWS                  |  5 +++--
 lisp/progmodes/project.el | 11 ++++++-----
 2 files changed, 9 insertions(+), 7 deletions(-)

diff --git a/etc/NEWS b/etc/NEWS
index f7ee9a9..fc3ca1e 100644
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -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
 
diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el
index ddb4f33..eab508a 100644
--- a/lisp/progmodes/project.el
+++ b/lisp/progmodes/project.el
@@ -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