From d813a8bf9805eede6c7afdf3613c2aa43815f160 Mon Sep 17 00:00:00 2001 From: Dmitry Gutov Date: Fri, 12 Jun 2026 06:17:16 +0300 Subject: [PATCH] Revert "* lisp/progmodes/project.el (project-vc-dir): Make interactive-only." This reverts commit 4c12da0888d155d3a5dcc01bae30f21b3cccfcc3. --- lisp/progmodes/project.el | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el index 095c89235ae..23c6b913af0 100644 --- a/lisp/progmodes/project.el +++ b/lisp/progmodes/project.el @@ -1608,15 +1608,16 @@ The current buffer's `default-directory' is available as part of (dired (project-root (project-current t)))) ;;;###autoload -(defun project-vc-dir () +(defun project-vc-dir (&optional truenameize) "Run VC-Dir in the current project's root. 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 of \\[vc-dir] when invoked interactively." - (declare (interactive-only vc-dir)) - (interactive) - (vc-dir (abbreviate-file-name - (file-truename (project-root (project-current t)))))) + (interactive "p") + (let ((root (project-root (project-current t)))) + (vc-dir (if truenameize + (abbreviate-file-name (file-truename root)) + root)))) ;;;###autoload (defun project-customize-dirlocals ()