aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorStephen Leake2019-05-20 15:24:47 -0700
committerStephen Leake2019-05-20 15:24:47 -0700
commitfb3b78f7b0a1391a5c20c8f795a3c514c7545d64 (patch)
treea4e227db17bc477ac7fe591b5be85c9dd51436da
parentafdc20d73c8588e5a744ecf7bffaf4401a557d20 (diff)
downloademacs-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.el4
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.
448The completion default is the filename at point, if one is 448The completion default is the filename at point, if one is
449recognized." 449recognized."
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 ()