From: Dan Nicolaescu Date: Tue, 22 Jul 2008 02:18:29 +0000 (+0000) Subject: (vc-dir-recompute-file-state): Add workaround for CVS. X-Git-Tag: emacs-pretest-23.0.90~4009 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=776f7a5f62528f5c6f9dc019bab92a53fa3a11cb;p=emacs.git (vc-dir-recompute-file-state): Add workaround for CVS. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 48ff3413337..93129d56600 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2008-07-22 Dan Nicolaescu + + * vc-dir.el (vc-dir-recompute-file-state): Add workaround for CVS. + 2008-07-21 Chong Yidong * menu-bar.el (menu-bar-line-wrapping-menu): Use Visual Line mode diff --git a/lisp/vc-dir.el b/lisp/vc-dir.el index 69117c8f2f3..1069f40e2ea 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)))