Mercurial > emacs
changeset 81445:4d58251a76e1
* vc.el (vc-dired-hook): check the backend returned from `vc-responsible-backend' can really handle `subdir'.
| author | Masatake YAMATO <jet@gyve.org> |
|---|---|
| date | Fri, 15 Jun 2007 18:50:19 +0000 |
| parents | 8429053c4496 |
| children | 774e9d2142bd |
| files | lisp/ChangeLog lisp/vc.el |
| diffstat | 2 files changed, 8 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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
--- 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