diff options
| author | Stephen Leake <stephen_leake@stephe-leake.org> | 2019-05-20 15:24:47 -0700 |
|---|---|---|
| committer | Stephen Leake <stephen_leake@stephe-leake.org> | 2019-05-20 15:24:47 -0700 |
| commit | fb3b78f7b0a1391a5c20c8f795a3c514c7545d64 (patch) | |
| tree | a4e227db17bc477ac7fe591b5be85c9dd51436da | |
| parent | afdc20d73c8588e5a744ecf7bffaf4401a557d20 (diff) | |
| download | emacs-fb3b78f7b0a1391a5c20c8f795a3c514c7545d64.tar.gz | |
Revert recent project-find-file change
* lisp/progmodes/project.el (project-find-file): Delete recently added
'filename' arg; just use project-find-file-in.
| -rw-r--r-- | lisp/progmodes/project.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el index e44cee2133f..ec7df78efc7 100644 --- a/lisp/progmodes/project.el +++ b/lisp/progmodes/project.el @@ -443,14 +443,14 @@ pattern to search for." (read-regexp "Find regexp" (and id (regexp-quote id))))) ;;;###autoload -(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 recognized." (interactive) (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))) ;;;###autoload (defun project-or-external-find-file () |