; Revise new command 'project-find-file-in-root'

* lisp/progmodes/project.el (project-find-file-in-root):
Call 'find-file' directly, not via 'call-interactively'.
Move interactive behavior to 'interactive' spec.

1 files changed, 10 insertions, 11 deletions

diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el
index ce2960c248b..ab884935a77 100644
--- a/lisp/progmodes/project.el
+++ b/lisp/progmodes/project.el
@@ -1070,17 +1070,16 @@ using a command like `project-find-file'."
     filename))
 
 ;;;###autoload
-(defun project-find-file-in-root ()
-  "Call `find-file' with the current project root as `default-directory'.
-
-Unlike `project-find-file', this doesn't provide completion over the
-entire file tree.
-
-This is equivalent to running `project-any-command' with `find-file'."
-  (interactive)
-  (let* ((pr (project-current t))
-         (default-directory (project-root pr)))
-    (call-interactively #'find-file)))
+(defun project-find-file-in-root (filename)
+  "Edit file FILENAME.
+
+Interactively, prompt for FILENAME, defaulting to the root directory of
+the current project."
+  (declare (interactive-only find-file))
+  (interactive (list (read-file-name "Find file in root: "
+                                     (project-root (project-current t)) nil
+                                     (confirm-nonexistent-file-or-buffer))))
+  (find-file filename t))
 
 ;;;###autoload
 (defun project-find-file (&optional include-all)