# HG changeset patch
# User Masatake YAMATO <jet@gyve.org>
# Date 1181933419 0
# Node ID 4d58251a76e14fe0147b8e083d6106871b9be22e
# Parent  8429053c449654e031219d86cfa81d777dc0a32e
* vc.el (vc-dired-hook): check the backend returned from `vc-responsible-backend' can really handle `subdir'.

diff -r 8429053c4496 -r 4d58251a76e1 lisp/ChangeLog
--- a/lisp/ChangeLog	Fri Jun 15 16:27:23 2007 +0000
+++ b/lisp/ChangeLog	Fri Jun 15 18:50:19 2007 +0000
@@ -1,3 +1,8 @@
+2007-06-15  Masatake YAMATO  <jet@gyve.org>
+
+	* vc.el (vc-dired-hook): check the backend returned from 
+	`vc-responsible-backend' can really handle `subdir'.
+
 2007-06-15  Chong Yidong  <cyd@stupidchicken.com>
 
 	* wid-edit.el (widget-add-documentation-string-button): Fix
diff -r 8429053c4496 -r 4d58251a76e1 lisp/vc.el
--- a/lisp/vc.el	Fri Jun 15 16:27:23 2007 +0000
+++ b/lisp/vc.el	Fri Jun 15 18:50:19 2007 +0000
@@ -2216,7 +2216,9 @@
 	;; if the backend supports it, get the state
 	;; of all files in this directory at once
 	(let ((backend (vc-responsible-backend subdir)))
-	  (if (vc-find-backend-function backend 'dir-state)
+	  ;; check `backend' can really handle `subdir'.
+	  (if (and (vc-call-backend backend 'responsible-p subdir)
+		   (vc-find-backend-function backend 'dir-state))
 	      (vc-call-backend backend 'dir-state subdir)))
         (forward-line 1)
         ;; erase (but don't remove) the "total" line