aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
authorStephen Leake2019-05-20 15:24:47 -0700
committerStephen Leake2019-05-20 15:24:47 -0700
commitfb3b78f7b0a1391a5c20c8f795a3c514c7545d64 (patch)
treea4e227db17bc477ac7fe591b5be85c9dd51436da /lisp
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.
Diffstat (limited to 'lisp')
-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 ()