# HG changeset patch
# User Eric S. Raymond <esr@snark.thyrsus.com>
# Date 1210065132 0
# Node ID 0a8a0c2b4cd308dbded156dd3d31906899fbeb22
# Parent  564d32dfad656e0581b0f2534d7f8f4b7e6b47d8
vc-responsible-backend needs to see absolute pathnames.

diff -r 564d32dfad65 -r 0a8a0c2b4cd3 lisp/vc.el
--- a/lisp/vc.el	Tue May 06 08:27:27 2008 +0000
+++ b/lisp/vc.el	Tue May 06 09:12:12 2008 +0000
@@ -2089,15 +2089,15 @@
 
 (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)