Respect selected project when finding files
This commit is contained in:
@@ -1799,7 +1799,10 @@ bind-key and global-set-key forms.
|
|||||||
(defun imalison:project-find-file ()
|
(defun imalison:project-find-file ()
|
||||||
"Find a file in the current `project.el' project."
|
"Find a file in the current `project.el' project."
|
||||||
(interactive)
|
(interactive)
|
||||||
(let* ((project-root (imalison:project-root))
|
(let* ((project-root (file-name-as-directory
|
||||||
|
(expand-file-name
|
||||||
|
(or project-current-directory-override
|
||||||
|
(imalison:project-root)))))
|
||||||
(default-directory project-root)
|
(default-directory project-root)
|
||||||
(project-current-directory-override project-root))
|
(project-current-directory-override project-root))
|
||||||
(call-interactively #'project-find-file)))
|
(call-interactively #'project-find-file)))
|
||||||
|
|||||||
Reference in New Issue
Block a user