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

diff --git a/etc/NEWS b/etc/NEWS
index f7ee9a9dfe43a183e3e68791513ddd076f173760..fc3ca1ea928c64bf57c9e54598b9724b65a5a280 100644 (file)
--- 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.
-
 \f
 * Changes in Emacs 27.1 on Non-Free Operating Systems
 

diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el
index ddb4f3354cdd0aea152c3c43d2cb2f95aebaffd1..eab508af3ac51225c64155e082e0f60d26b983ad 100644 (file)
--- 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