# HG changeset patch
# User Dan Nicolaescu <dann@ics.uci.edu>
# Date 1216693109 0
# Node ID 938dd02137bc121fd7ce3e57602072e12a605628
# Parent  2ba26c26640b1fafeb75d13bb1675e9e3a4f7b50
(vc-dir-recompute-file-state): Add workaround for CVS.

diff -r 2ba26c26640b -r 938dd02137bc lisp/ChangeLog
--- a/lisp/ChangeLog	Tue Jul 22 02:17:21 2008 +0000
+++ b/lisp/ChangeLog	Tue Jul 22 02:18:29 2008 +0000
@@ -1,3 +1,7 @@
+2008-07-22  Dan Nicolaescu  <dann@ics.uci.edu>
+
+	* vc-dir.el (vc-dir-recompute-file-state): Add workaround for CVS.	
+
 2008-07-21  Chong Yidong  <cyd@stupidchicken.com>
 
 	* menu-bar.el (menu-bar-line-wrapping-menu): Use Visual Line mode
diff -r 2ba26c26640b -r 938dd02137bc lisp/vc-dir.el
--- a/lisp/vc-dir.el	Tue Jul 22 02:17:21 2008 +0000
+++ b/lisp/vc-dir.el	Tue Jul 22 02:18:29 2008 +0000
@@ -772,6 +772,11 @@
 
 (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)))