Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-06-14 04:21:24 +00:00
Code Issues Projects Releases Packages Wiki Activity

* lisp/progmodes/project.el (project-vc-dir): Make interactive-only.

Browse source
This commit is contained in:
Sean Whitton 2026-06-10 10:00:13 +01:00
parent 02f22865f6
commit 4c12da0888
1 changed files with 5 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
lisp/progmodes/project.el
View file

@ -1608,16 +1608,15 @@ The current buffer's `default-directory' is available as part of
(dired (project-root (project-current t)))) (dired (project-root (project-current t))))
;;;###autoload ;;;###autoload
(defun project-vc-dir (&optional truenameize) (defun project-vc-dir ()
"Run VC-Dir in the current project's root. "Run VC-Dir in the current project's root.
If TRUENAMEIZE is non-nil, as it is interactively, then if the project If TRUENAMEIZE is non-nil, as it is interactively, then if the project
root is a symbolic link, resolve it first. This matches the behaviour root is a symbolic link, resolve it first. This matches the behaviour
of \\[vc-dir] when invoked interactively." of \\[vc-dir] when invoked interactively."
(interactive "p") (declare (interactive-only vc-dir))
(let ((root (project-root (project-current t)))) (interactive)
(vc-dir (if truenameize (vc-dir (abbreviate-file-name
(abbreviate-file-name (file-truename root)) (file-truename (project-root (project-current t))))))
root))))
;;;###autoload ;;;###autoload
(defun project-customize-dirlocals () (defun project-customize-dirlocals ()