Commit fb3b78f7 authored by Stephen Leake's avatar Stephen Leake

Revert recent project-find-file change

* lisp/progmodes/project.el (project-find-file): Delete recently added
'filename' arg; just use project-find-file-in.
parent afdc20d7
Pipeline #1762 failed with stage
in 51 minutes and 27 seconds
......@@ -443,14 +443,14 @@ pattern to search for."
(read-regexp "Find regexp" (and id (regexp-quote id)))))
(defun project-find-file (&optional filename)
(defun project-find-file ()
"Visit a file (with completion) in the current project's roots.
The completion default is the filename at point, if one is
(let* ((pr (project-current t))
(dirs (project-roots pr)))
(project-find-file-in (or filename (thing-at-point 'filename)) dirs pr)))
(project-find-file-in (thing-at-point 'filename) dirs pr)))
(defun project-or-external-find-file ()
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment