;;;###autoload
(defun project-find-file ()
"Visit a file (with completion) in the current project.
-The completion default is the string at point."
+
+The completion default is the filename at point, determined by
+`thing-at-point' (whether such file exists or not)."
(interactive)
(let* ((pr (project-current t))
(dirs (list (project-root pr))))
;;;###autoload
(defun project-or-external-find-file ()
"Visit a file (with completion) in the current project or external roots.
-The completion default is the string at point."
+
+The completion default is the filename at point, determined by
+`thing-at-point' (whether such file exists or not)."
(interactive)
(let* ((pr (project-current t))
(dirs (cons