* vc.el (vc-dired-hook): check the backend returned from `vc-responsible-backend...

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7013bdaf3cd0beda9ced0e01c892e42f1570ab83..b67b406c600764b8c5531843bb35b63131393a6f 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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 --git a/lisp/vc.el b/lisp/vc.el
index 7d9844f3bc97c6730ccc8ba87a718a76112a3263..d5c53a15a76498fa27d65f97313400917d5e5626 100644 (file)
--- a/lisp/vc.el
+++ b/lisp/vc.el
@@ -2216,7 +2216,9 @@ Called by dired after any portion of a vc-dired buffer has been read in."
        ;; 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