diff options
| author | Stephen Leake | 2019-05-20 15:24:47 -0700 |
|---|---|---|
| committer | Stephen Leake | 2019-05-20 15:24:47 -0700 |
| commit | fb3b78f7b0a1391a5c20c8f795a3c514c7545d64 (patch) | |
| tree | a4e227db17bc477ac7fe591b5be85c9dd51436da | |
| parent | afdc20d73c8588e5a744ecf7bffaf4401a557d20 (diff) | |
| download | emacs-fb3b78f7b0a1391a5c20c8f795a3c514c7545d64.tar.gz emacs-fb3b78f7b0a1391a5c20c8f795a3c514c7545d64.zip | |
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." | |||
| 443 | (read-regexp "Find regexp" (and id (regexp-quote id))))) | 443 | (read-regexp "Find regexp" (and id (regexp-quote id))))) |
| 444 | 444 | ||
| 445 | ;;;###autoload | 445 | ;;;###autoload |
| 446 | (defun project-find-file (&optional filename) | 446 | (defun project-find-file () |
| 447 | "Visit a file (with completion) in the current project's roots. | 447 | "Visit a file (with completion) in the current project's roots. |
| 448 | The completion default is the filename at point, if one is | 448 | The completion default is the filename at point, if one is |
| 449 | recognized." | 449 | recognized." |
| 450 | (interactive) | 450 | (interactive) |
| 451 | (let* ((pr (project-current t)) | 451 | (let* ((pr (project-current t)) |
| 452 | (dirs (project-roots pr))) | 452 | (dirs (project-roots pr))) |
| 453 | (project-find-file-in (or filename (thing-at-point 'filename)) dirs pr))) | 453 | (project-find-file-in (thing-at-point 'filename) dirs pr))) |
| 454 | 454 | ||
| 455 | ;;;###autoload | 455 | ;;;###autoload |
| 456 | (defun project-or-external-find-file () | 456 | (defun project-or-external-find-file () |