martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(project-find-file): Allow current file name "other project"'s future history

Browse Source 
* lisp/progmodes/project.el (project-find-file):
Allow using the relative file name of the current buffer in "other
project" as well (bug#63829).
This commit is contained in:
Spencer Baugh
2023-08-17 04:14:03 +03:00
committed by Dmitry Gutov
parent 9dff654432
commit f38bcf37dc
1 changed files with 12 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
lisp/progmodes/project.el
View File

@@ -994,7 +994,8 @@ pattern to search for."
"Visit a file (with completion) in the current project.
The filename at point (determined by `thing-at-point'), if any,
is available as part of \"future history\".
is available as part of \"future history\". If none, the current
buffer's file name is used.
If INCLUDE-ALL is non-nil, or with prefix argument when called
interactively, include all files under the project root, except
@@ -1005,7 +1006,16 @@ for VCS directories listed in `vc-directory-exclusion-list'."
(dirs (list root)))
(project-find-file-in
(or (thing-at-point 'filename)
buffer-file-name)
(and buffer-file-name
(if-let (buffer-proj (and project-current-directory-override
(project-current nil default-directory)))
;; Allow using the relative file name of the current
;; buffer in "other project" as well.
(let ((buffer-root (project-root buffer-proj)))
;; file-name-concat requires Emacs 28+
(concat (file-name-as-directory root)
(file-relative-name buffer-file-name buffer-root)))
buffer-file-name)))
dirs pr include-all)))
;;;###autoload