From: Juri Linkov <juri@linkov.net>
Date: Tue, 14 May 2019 20:40:31 +0000 (+0300)
Subject: * lisp/progmodes/project.el (project-read-file-name-function): Fix type.
X-Git-Tag: emacs-27.0.90~2895
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c11c9903565c3fcab98ce715c5520ae1e349861f;p=emacs.git

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

diff --git a/etc/NEWS b/etc/NEWS
index f7ee9a9dfe4..fc3ca1ea928 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 ddb4f3354cd..eab508af3ac 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