From: Eric S. Raymond <esr@snark.thyrsus.com>
Date: Tue, 6 May 2008 09:12:12 +0000 (+0000)
Subject: vc-responsible-backend needs to see absolute pathnames.
X-Git-Tag: emacs-pretest-23.0.90~5773
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d5bea22973621f989c48ef9843410b34897b8e79;p=emacs.git

vc-responsible-backend needs to see absolute pathnames.
---

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)