From d5bea22973621f989c48ef9843410b34897b8e79 Mon Sep 17 00:00:00 2001 From: "Eric S. Raymond" Date: Tue, 6 May 2008 09:12:12 +0000 Subject: [PATCH] vc-responsible-backend needs to see absolute pathnames. --- lisp/vc.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/vc.el b/lisp/vc.el index 068af0aab9e..884e679663e 100644 --- a/lisp/vc.el +++ b/lisp/vc.el @@ -2089,15 +2089,15 @@ outside of VC) and one wants to do some operation on it." (defun vc-generic-status-printer (fileentry) (let* ((file (vc-dir-fileinfo->name fileentry)) - (backend (vc-responsible-backend file))) + (backend (vc-responsible-backend (expand-file-name file)))) (vc-call-backend backend 'status-printer fileentry))) (defun vc-generic-state (file) - (let ((backend (vc-responsible-backend file))) + (let ((backend (vc-responsible-backend (expand-file-name file)))) (vc-call-backend backend 'state file))) (defun vc-generic-status-fileinfo-extra (file) - (let ((backend (vc-responsible-backend file))) + (let ((backend (vc-responsible-backend (expand-file-name file)))) (vc-call-backend backend 'status-fileinfo-extra file))) (defun vc-generic-dir-headers (dir) -- 2.39.2