changeset 94689:0a8a0c2b4cd3

vc-responsible-backend needs to see absolute pathnames.
author Eric S. Raymond <esr@snark.thyrsus.com>
date Tue, 06 May 2008 09:12:12 +0000
parents 564d32dfad65
children 1cd9c5b2b68a
files lisp/vc.el
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- 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)