Simplify mode line for vc-print-root-log

* lisp/vc/vc.el (vc-print-root-log): Don't display "from <file>"
(bug#45007).

diff --git a/lisp/vc/vc.el b/lisp/vc/vc.el
index 3508f684c49be9e803110a7eec8fc33d4d6fd653..d6f0f4a497750826f3e9b1f3b025a4d502863c0c 100644 (file)
--- a/lisp/vc/vc.el
+++ b/lisp/vc/vc.el
@@ -2654,7 +2654,10 @@ with its diffs (if the underlying VCS supports that)."
         (error "Directory is not version controlled")))
     (setq default-directory rootdir)
     (vc-print-log-internal backend (list rootdir) revision revision limit
-                           (when with-diff 'with-diff))))
+                           (when with-diff 'with-diff))
+    ;; We're looking at the root, so displaying " from <some-file>" in
+    ;; the mode line isn't helpful.
+    (setq vc-parent-buffer-name nil)))
 
 ;;;###autoload
 (defun vc-print-branch-log (branch)