diff options
| author | Dan Nicolaescu <dann@ics.uci.edu> | 2008-07-22 02:18:29 +0000 |
|---|---|---|
| committer | Dan Nicolaescu <dann@ics.uci.edu> | 2008-07-22 02:18:29 +0000 |
| commit | 776f7a5f62528f5c6f9dc019bab92a53fa3a11cb (patch) | |
| tree | 635ae42c97669234c47b9ccb3d05162120767874 /lisp/vc-dir.el | |
| parent | c7bd577b67f5aab517047fa08b4437244bb1124d (diff) | |
(vc-dir-recompute-file-state): Add workaround for CVS.
Diffstat (limited to 'lisp/vc-dir.el')
| -rw-r--r-- | lisp/vc-dir.el | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/lisp/vc-dir.el b/lisp/vc-dir.el index 69117c8f2f..1069f40e2e 100644 --- a/lisp/vc-dir.el +++ b/lisp/vc-dir.el @@ -772,6 +772,11 @@ If it is a file, return the corresponding cons for the file itself." (defun vc-dir-recompute-file-state (fname def-dir) (let* ((file-short (file-relative-name fname def-dir)) + (remove-me-when-CVS-works + (when (eq vc-dir-backend 'CVS) + ;; FIXME: Warning: UGLY HACK. The CVS backend caches the state + ;; info, this forces the backend to update it. + (vc-call-backend vc-dir-backend 'registered fname)) (state (vc-call-backend vc-dir-backend 'state fname)) (extra (vc-call-backend vc-dir-backend 'status-fileinfo-extra fname))) |