aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorEric S. Raymond2008-05-06 09:12:12 +0000
committerEric S. Raymond2008-05-06 09:12:12 +0000
commitd5bea22973621f989c48ef9843410b34897b8e79 (patch)
tree6b002491d8a9cfae4d40462c85cf92efb9992551
parent0549d8fc047754fe66d76cd5136c699aec3870a5 (diff)
downloademacs-d5bea22973621f989c48ef9843410b34897b8e79.tar.gz
emacs-d5bea22973621f989c48ef9843410b34897b8e79.zip
vc-responsible-backend needs to see absolute pathnames.
-rw-r--r--lisp/vc.el6
1 files 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."
2089 2089
2090(defun vc-generic-status-printer (fileentry) 2090(defun vc-generic-status-printer (fileentry)
2091 (let* ((file (vc-dir-fileinfo->name fileentry)) 2091 (let* ((file (vc-dir-fileinfo->name fileentry))
2092 (backend (vc-responsible-backend file))) 2092 (backend (vc-responsible-backend (expand-file-name file))))
2093 (vc-call-backend backend 'status-printer fileentry))) 2093 (vc-call-backend backend 'status-printer fileentry)))
2094 2094
2095(defun vc-generic-state (file) 2095(defun vc-generic-state (file)
2096 (let ((backend (vc-responsible-backend file))) 2096 (let ((backend (vc-responsible-backend (expand-file-name file))))
2097 (vc-call-backend backend 'state file))) 2097 (vc-call-backend backend 'state file)))
2098 2098
2099(defun vc-generic-status-fileinfo-extra (file) 2099(defun vc-generic-status-fileinfo-extra (file)
2100 (let ((backend (vc-responsible-backend file))) 2100 (let ((backend (vc-responsible-backend (expand-file-name file))))
2101 (vc-call-backend backend 'status-fileinfo-extra file))) 2101 (vc-call-backend backend 'status-fileinfo-extra file)))
2102 2102
2103(defun vc-generic-dir-headers (dir) 2103(defun vc-generic-dir-headers (dir)