Respect selected project when finding files

This commit is contained in:
2026-05-11 23:41:57 -07:00
parent 1baf114689
commit 33066b3abf

View File

@@ -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)))