Re: master d879c40f68c: * etc/NEWS: Mention it.

[Eshel Yaron <me@eshelyaron.com>]

Hi,

Dmitry Gutov <dgutov@yandex.ru> writes:

> branch: master
> commit d879c40f68c078bdba15122e4e886a2052fbddf4

[...]

> +;;;###autoload
> +(defun project-find-file-in-root ()
> +  "..."
> +  (interactive)
> +  (let* ((pr (project-current t))
> +         (default-directory (project-root pr)))
> +    (call-interactively #'find-file)))

Nice addition, thanks!

Nitpick: I find the use of call-interactively with a constant argument
slightly awkward.  What do y'all think about a revision along the
following lines?

--8<---------------cut here---------------start------------->8---
;;;###autoload
(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 project file: "
                         (project-root (project-current t)) nil
                         (confirm-nonexistent-file-or-buffer))))
  (find-file filename t))
--8<---------------cut here---------------end--------------->8---