vc-responsible-backend needs to see absolute pathnames.

diff --git a/lisp/vc.el b/lisp/vc.el
index 068af0aab9e965b7b1b9920d85bf3fcf488e6c92..884e679663e8ccd77f68555b7075051721142d20 100644 (file)
--- 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)